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Apprendre Delphi7 par Uexemple 


Chapitre 1 : Introduction a Delphi7 


LE^ON 1 : DELPHI7, GENERALITIES 


1- INTRODUCTION 

Delphi est un environnement de programmation visuel oriente objet permettant de developper des 
applications sous Windows. II represente la suite logique de la famille turbo Pascal avec ses nombreuses versions 
(precisement le pascal objet). Delphi est un outil moderne, puissant, faisant appel a une conception visuelle des 
applications, a la programmation orientee objet, a une bibliotheque de composants tres riche (la VCL: Visual 
Components Library), aux fichiers DLL (Dynamic Link Library) et API (Application Programming Interface) de 
Windows; Delphi se classe comme I’un des meilleurs environnement de developpement rapide des applications 
(RAD) dans le monde informatique. 

Delphi, c’est aussi un produit qui evolue avec le temps. Chaque nouvelle version possede son lot de 
nouveautes. Void les versions successives : 

Delphi 1 est le premier environnement pascal RAD sous Windows 3.1 1 (visuel). 

Delphi 2 marque le passage au mode 32 bits avec Windows 95. 

Delphi 3 supporte deja les Active X, ainsi que I’aide a la saisie dynamique. 

Delphi 4 propose les tableaux dynamiques. 

Delphi 5 ouvre faeces natif aux bases de donnees ADO et interbase. 

Delphi 6 introduit dbExpress et les composants portables de la CLX. 

Et en fin, Delphi 7, Delphi 8 et recemment Delphi 2006 et 2007 qui sont sans doute les versions les plus enrichies de 
toute I’histoire du produit. 

2- ENVIRONNEMENT DELPHI 
Demarrage de Delphi 

Vous pouvez demarrer Delphi de plusieurs fagons : 

• Double-cliquer sur I’icone Delphi (si vous avez cree un raccourci). 

• Choisir Programmes ^Borland Delphi 7 ■=> Delphi 7 dans le menu Demarrer de Windows. 

• Choisir Executer dans le menu Demarrer de Windows, puis entrer Delphi32. 

• Double-cliquer sur Delphi32.exe dans le repertoire Delphi\Bin. 


L’EDI 

Lorsque vous demarrez Delphi pour la premiere fois, vous voyez apparaitre quelques-uns des principaux 
outils proposes dans I’EDI (environnement de developpement integre). Dans Delphi, I’EDI comprend des barres 
d’outils, des menus, la palette de composants, I’inspecteur d’objets, I’arborescence d’objets, I’editeur de code, 
I’explorateur de code, le gestionnaire de projet et bien d’autres outils. 


La vue arborescente de 1’ objet 
affiche une representation 
hierarchique des relations parent 
enfant des composants. 


La barre des menus et les barres d’outils 
permettent d’acceder a tout un ensemble de 
fonctions qui vous aident a ecrire vos applications. 
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L’inspecteur d’objets permet de 
changer des proprietes et d’utiliser le 
gestionnaire d’evenements de 1’ objet 
selectionne. On affiche l’inspecteur 
d’ objet par Fll ou ENTREE 


L’explorateur de code montre les 
classes, variables et routines de 
votre unite et vous permet de 
naviguer rapidement. 
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La palette de composants contient 
des composants (visuels ou non) 
prets a etre utilises dans vos 
projets, regroupees par families 
(pages a onglets). C’est la VCL 
de Delphi. 

L’editeur de code, ou 1’ unite, 
permet d’afficher et de modifier le 
code source de votre application. 
La saisie du code source est 
assistee (semi-automatique). 

Le concepteur de fiche contient 
une fiche vierge pour demarrer 
la conception de 1’ interface 
utilisateur de votre application. 
C’est le support des composants 
utilises. Une application peut 
comporter plusieurs fiches 
(fenetres). La bascule fiche/unite 
se fait par la touche F12 
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Les barres d’outils de Delphi permettent un acces rapide aux operations et aux commandes les plus 
utilisees. La plupart des operations accessibles dans les barres d’outils se retrouvent dans les menus deroulants. 
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De nombreuses operations possedent des equivalents clavier ainsi que des boutons dans la barre d’outils. 
Lorsqu’un raccourci clavier est disponible, il est toujours inscrit a cote de la commande dans le menu deroulant. 




Voir la liste des unites 
(Ctrl +F12) 


r 


Executer (F9) 


0 


Tout enregistrer (Le projet et les 
fichiers associes) 


& 

voir la liste des fiches 
(Shift + FI 2) 




Ajouter un fichier au 
projet 


y 


Enregistrer (enregistrer uniquement la 
fiche actuelle) 


m 

Basculer Unite/Fiche 
(FI 2) 


0 


Retirer un fichier du 
projet 


& 


Ouvrir un fichier (fiche ou projet) 


— | 

Nouvelle Fiche 




Ouvrir un projet 


□ 


Nouveau (fenetre de choix: 

Application, console, fiche, ...etc.) 


L’inspecteur d’objet 

Chaque composant possede des attributs specifiques (proprietes, evenements et methodes) vous 
permettant de controler votre application. Utilisez I’inspecteur d’objets pour definir des proprietes de conception, 
creer des gestionnaires d’evenements, filtrer la visibility des proprietes et des evenements, ce qui etablira le lien 
entre I’apparence visuelle de votre application et le code qui la fait s’executer. 


Vous pouvez changer la maniere dont un composant s’affiche (proprietes) et se comporte (evenements) 
dans votre application en utilisant I’inspecteur d’objets. Lorsqu’un composant est selectionne sur la fiche, ses 
proprietes et ses evenements sont affiches dans I’inspecteur d’objets. 


L’arborescence d’objets, l’inspecteur 
d’objets et le concepteur de fiche 
fonctionnent ensembles. Quant vous 
cliquez sur un objet de votre fiche, la 
focalisation change a la fois dans 
l’arborescence et dans l’inspecteur 
d’objets et reciproquement. 

Appuyez sur ALT-SHIFT-F11 pour 
passer la focalisation a l’arborescence 
d’objets. 

Utiliser cette liste deroulante pour 
selectionner un objet. Si un objet est 
selectionne, les membres de sa classe 
(proprietes et evenements )seront affiches. 



Selectionnez une propriete et changez sa 
valeur dans la colonne de droite. 
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3- NOTIONS DE PRO JET DELPHI ET DE SES FICHIERS 

Un projet est I'etat non compile d'une application (Application = Logiciel). Chaque projet compile devient une 
application. Un projet se compose d'un certain nombre de fichiers. Une sage habitude est de consacrer 
completement un repertoire (dossier) a chaque application qu'on souhaite programmer (chaque projet). Ce repertoire 
contiendra tous les fichiers constituant le projet (le nombre de fichiers augmentera au fur et a mesure que le projet 
s'etoffera). 

Un projet non compile (c'est-a-dire avant sa transformation en logiciel), contient ces fenetres (a I'etat non 
compilees egalement) : les fiches, c’est la partie visuelle d’une application. Cette fiche, lors de la compilation du 
projet en application, sera transformee en fenetre. 

A chaque fiche est adjointe une (et une seule) unite, c'est-a-dire un texte ecrit en langage Pascal, qui 
contiendra tout ce qui se rapporte a cette fiche : ce qu'elle contient (boutons, menus, ...), ce qui doit se passer dans 
certaines situations (lorsqu'on clique sur un bouton par exemple), et encore bien d'autres choses. 

Chaque fiche est stockee dans un fichier comportant I'extension 'DFM' (exemple : bulletin. dfm ). 

Chaque unite est stockee dans un fichier comportant I'extension 'PAS' (exemple : bulletin. pas ). 

La fiche et son unite associee portent le meme nom (mais pas la meme extension) (Delphi ne demande ce 
nom d’enregistrement qu'une seule fois et I'utilise automatiquement pour I'unite et la fiche, ainsi vous n'avez aucun 
risque de vous tromper). Par exemple, si une fiche est stockee dans le fichier nomme « bulletin.dfm », son unite 
associee sera stockee dans le fichier nomme « bulletin. pas ». voire la figure suivante : 


, / 

Nom de base -f- 

\ 


dfm' 


fiche 


as soeies 


pas' 


. . 


unite 


J L 


J 


Firhiers 


Contenu 

des fichier? 


Figure : la nomination des fches & unites 


II est egalement possible d'utiliser des unites qui n'ont pas de fiche associee. Ceci est utile par exemple pour 
rassembler des morceaux de programme qui n'ont aucun rapport avec une quelconque fiche. Le fichier qui contient 
cette unite porte I'extension 'PAS', comme s'il avait une fiche associee, mais il n'en a pas : il n'y a pas de fichier 
nomme identiquement, mais avec I'extension 'DFM'. 

Un projet sous Delphi est constitue d'un fichier-projet (portant I'extension 'DPR'), d'unites et de fiches. 
Chaque fiche a son unite correspondante, mais certaines unites n'ont pas, comme on I'a vu ci-dessus, de fiche 
associee (il y a toujours au moins autant d'unites que de fiches dans un projet, et souvent plus). Pensez en outre a 
donner des noms descriptifs, ou au moins significatifs lors des enregistrements des unites ou des fiches (Ainsi, « 
unitl .pas » est un bien mauvais choix I). 

Lors de la compilation du projet (transformation en application), d'autres fichiers seront crees : des fichiers 
DCU (fichiers portant I'extension 'DCU', essayez de vous habituer a ces abus de langage). Ces fichiers sont la forme 
compilee des fichiers de meme nom qui portent les extensions 'PAS' et 'DFM' : un 'PAS' (avec son 'DFM' associe s'il 
y en a un) est transforme en 'DCU' lors de la compilation. Un fichier 'EXE' est enfin cree si la compilation atteint son 
terme (si tous les fichiers 'DCU' ont pu etre crees). Ce fichier est nomme avec le meme nom de base que celui du 
fichier projet (fichier DPR). 

Le schema ci-dessous represente la transformation d'un projet en application, avec les elements que vous 
devez desormais connaTtre. Ce projet comporte deux fiches (avec les unites associees) ainsi qu'une unite seule : 
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Unite l <-> 




Unite 3 


Projet. 


ptM Gtnem 

\ 

Ficluer 

, 

cusocis* 

7 

DCU 3 

. 


ji 


Compilation 


Application 
(Fielder EXE) 


Fenetie 1 


Fenetie 2 


Application 


Figure : un projet Delphi, du source a I’execution. 


Lors des enregistrements successifs d'un projet, d'autres fichiers avec des extensions ~DP, ~DF, ~PA, ~DC, 
-DPR, -DFM, -PAS, -DCU sont crees : ce sont des copies de sauvegarde (des versions plus anciennes) des 
fichiers portant le meme nom, sans le signe tilde (~) 

Exemple : « optionsaffich.~PA » est une copie de sauvegarde de « optionsaffich.pas >>. 

Enfin, d'autres fichiers ayant le meme nom que le fichier projet (celui qui porte I'extension DPR) mais avec 
I'extension .RES, .OPT, .CFG, .DOF, .DSK, .DSM sont crees dans certaines circonstances. Vous n'avez pas a vous 
souciez de ces fichiers. 

Le tableau suivant donne une liste aussi complete que possible des fichiers pouvant etre rencontres dans le 
repertoire d'un projet Delphi : 


Extension du fichier 

Description et Commentaires 

DPR 

(Delphi PRoject) Contient I'unite principale du projet 

PAS 

(PAScal) Contient une unite ecrite en Pascal. Peut avoir un .DFM correspondant 

DFM 

(Delphi ForM : fiche Delphi) Contient une fiche (une fenetre). Le .PAS correspondant 
contient toutes les informations relatives au fonctionnement de cette fiche, tandis que le 
.DFM contient la structure de la fiche (ce qu'elle contient, sa taille, sa position, ...). Sous 
Delphi 5, les .DFM deviennent des fichiers texte qu'il est possible de visualiser et de 
modifier. La meme manipulation est plus delicate mais possible sous Delphi 2 a 4. 

DCU 

(Delphi Compiled Unit : Unite compilee Delphi) 

Forme compilee et combinee d'un .PAS et d'un .DFM optionnel 

-??? 

Tous les fichiers dont I'extension commence par ~ sont des fichiers de sauvegarde, 
pouvant etre effaces pour faire place propre. 

EXE 

Fichier executable de I'application. Ce fichier est le resultat final de la compilation et 
fonctionne sous Windows exclusivement. Pour distribuer le logiciel, copier ce fichier est 
souvent suffisant. 

RES 

(RESsource) 

Fichier contenant les ressources de I'application, tel son icone. Ce fichier peut etre edite 
avec I'editeur d'images de Delphi. Ces notions seront abordees plus loin dans ce guide. 

DOF 

DSK 

CFG 

Fichiers d'options : suivant les versions de Delphi, ces fichiers contiennent les options du 
projet, les options d'affichage de Delphi pour ce projet, ... 
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LEgON 2 : LES PREMIERS PAS 


TP 1 : JEU DE COULEURS 

Interface 



s 

Etapes : 

Inserer le premier bouton dans la fiche comme suite : 



Clio sur le composant Button 
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2 ) Clio dans la fiche sur la place ou on veut inserer ce bouton 



Ecrire dans la propriety caption le nom apparant de ce boutton (exemple : Bleu) 
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Remarque de base 

Pour simplifier la presentation des etapes de creation des interfaces des exemples suivants, on presente les 
objets a inserer sur une fiche par un tableau contenant : les noms des composants, leurs proprietes a manipuler 
(dans leurs inspecteurs d’objets) et enfin les valeurs a donner a ces proprietes. 

Done, I’etape precedente peut etre presentee comme suite : 

1 -inserer les composants suivants de la palette Standard : 


Composant 

Propriete 

Valeur 

Button 1 

Caption 

bleu 

Button2 

Caption 

rouge 

Button3 

Caption 

vert 


2-double clique sur le boutonl (Bleu) et ecrire dans la procedure : 

Forml.Color:=CLBlue; 

i 


Une Valeur adequate pour la 
propriety (cl : veut dire couleur) 


▼ 

Une de ses proprietes 
ou methodes 

▼ 

Le nom de I’objet 


Renmrgue 

Si vous ecrivez : 

Forml. 

Delphi, grace a son assistant de saisie semi-automatique, vous propose la liste des membres (proprietes et 
methodes) de la classe saisie (Forml), et on peut soit choisir dans liste la propriete ou methode voulue, ou taper 
les premieres lettres de I’element voulu (exemple : co pour ecrire color) et lorsqu’il sera selectionne dans la liste 
on tape Entree pour que Delphi I’ecrit dans I’instruction. 



3- taper F12 pour revenir a la fiche et double clique sur le bouton2 (Rouge) et ecrire dans la procedure 

Forml .color: =CLRed; 

4- taper F12 pour revenir a la fiche et double clique sur le bouton3 (Vert) et ecrire dans la procedure : 

Forml .color: =CLGreen; 


5- Lancer I’execution par la touche f9, ou par le bouton £ ; Et verifier le bon fonctionnement de la fiche 
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TP 2 : CALCUL DE LA MOYENNE 

Interface 



Etapes : 


1-inserer les composants suivants de la palette Standard : 


Composant 

Propriete 

Valeur 

Editl [^Bi 

text 


Edit2 

text 


Edit3 

text 


Label 1 a 

Caption 

Devoir 

Label2 

Caption 

Composition 

Label3 

Caption 

Moyenne 

Button 1 ju 

Caption 

Calcul 


2- double clique sur le boutonl (calcul) et ecrire dans la procedure : 

edit3.text:= floattostr ((strtofloat (editl.text) + strtofloat (edit2.text))/3); 

3- Lancer I’execution par la touche F9, ou par le bouton 


Et verifier le bon fonctionnement de la fiche. 


Remarque 1 : 

1- le casting=changement de type conversion de type (strtofloat, floattostr, inttostr, strtoint ....) 

2- une autre solution possible (a ecrire dans la procedure du boutonl “calcul”) 

(Supprimer le begin et end de la procedure et coller tous le code source suivant) 

Var dev, comp, moy :real ; 

Begin 

dev:= strtofloat(edit1 .text); 
comp:= strtofloat(edit2.text); 
moy:= (dev+comp)/3; 
edit3.text:= floattostr(moy); 

End ; 

Remarque 2 : 

Le Casting = c’est aussi la conversion de type dans une affectation ou un test. 

Exemple: 

Edit3.text :=floattostr((strtofloat(edit1 .text) + strtofloat(edit2.text))/3) ; 

If strtofloat(edit3.text)<10 then 
Showmessage(‘etudiant ajourne’) 

Else 

Showmessage(‘etudiant admis’) ; 
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TP3 : CALCUL DU FACTORIEL 

Interface: 



Etapes 

1-inserer les composants suivants de la palette standard: 


Composant 

Propriete 

Valeur 

Editl 

Text 


Edit2 

Text 


Label 1 

Caption 

Nombre 

Label2 

Caption 

Factoriel 

Button 1 

Caption 

Calcul 


2-double clique sur le boutonl (calcul) et ecrire dans la procedure : 

(Supprimer le begin et end de la procedure et coller tous le code source suivant) 


var a, b, fact integer; 

Begin 

a:= strtoint(editl.text); 
if a>=0 then 
begin 
fact:=1 ; 

for b:=1 to a do 
fact:=fact*b; 

edit2.text:= inttostr (fact); 

End 

Else 

Showmessage ('pas de factoriel pour un nombre negatif); 
end; 


3- Lancer I’execution 


par 


la touche F9, ou par le bouton 



Et verifier le bon fonctionnement de la fiche. 
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TP4 : CHARGEMENT D’UNE IMAGE 

Interface: 


Image Delphi? 

3loJiE3 


f 


Etapes 

1- inserer un composant image de la palette « supplement >>. 

2- choisir dans son inspecteur d’objet la propriete : 



Clic ici 


3- dans la fenetre qui s’affiche, on clic sur le bouton : 

Charger... | 

Pour chercher I’image voulue dans le disque dur. 

3- dans la nouvelle fenetre, et apres avoir selectioner I’image voulue on clic sur le bouton : 



Ensuite sur le bouton : 


OK 


4- pour que I’image occupe toute la surface de son cadre on modifie sa propriete : 

| AutoS ize Tiuej 



Clic ici pour choisir la valeur True 


5- pour que I’image s’agrandie si elle a une taille plus petite que la surface de son cadre on modifie sa propriete : 

I Stretch Tiue| ~ ”3* — Clic ici pour choisir la valeur True 


Aussi modifier sa propriete 


Align 


alClient 


Clic ici pour choisir la valeur alClient 


Pour que cette image aucupe tous I’espace de la fenetre actuelle. 
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Apprendre Delphi7 par Uexemple 


Chapitre 1 : Introduction a Delphi7 


LEgON 3 : AVANCER PLUS 

TP1 : INTERFACE DE COULEURS 

Interface : 



S 

Etapes : 

Partiel : 

1- inserer les composants suivants de la palette standard: 


Composant 

Propriete 

Valeur 

Radiobuttonl 

Caption 

Bleu 

Radiobutton2 

Caption 

Rouge 

Radiobutton3 

Caption 

Vert 


2- double clique sur le Radiobuttonl (Bleu) et ecrire dans la procedure : 

Forml .color:=clblue; 


3- taper F12 et double clique sur le Radiobutton2 (ROUGE) et ecrire dans la procedure : 

Forml ,color:=clred; 


4- taper F12 et double clique sur le Radiobutton3 (Vert) et ecrire dans la procedure : 

Forml ,color:=clgreen; 


5- Lancer I’execution par la touche F9, ou par le bouton 



Et verifier le bon fonctionnement de la fiche. 


Partie 2 : 

1- inserer un composant Labell (palette standard) et ecrire dans sa propriety caption : couleur. 

2- inserer un composant Comboboxl (palette standard) et ecrire sa propriety text : (vide). 

3- clique sur le composant Comboboxl et dans son inspecteur d’objet on choisit la propriety : 


Items 


(T Strings) 




Clique ici pour ecrire les elements de la liste 


Et dans la fenetre qui s’affiche on ecrit les elements de la liste ligne par ligne (bleu, rouge, vert) comme suite : 



A la fin, clic sur ce bouton pour fermer la fenetre 
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Ann rend re Delphi ; 7 par /’exemp/e 


Chapitre 1 : Introduction a Delphi7 


4 - double clique sur le Comboboxl et ecrire dans la procedure (attention au lettres majuscules): 

If comboboxl .text=’Bleu’ then 
forml .color:=clblue; 
if comboboxl .text=’ Rouge’ then 
forml. color:=clred; 
if comboboxl .text=’Vert’ then 
forml. color:=clgreen; 

5- Lancer I’execution par la touche F9, ou par le bouton 


Et verifier le bon fonctionnement de la fiche. 


Partie 3 : 

1- inserer un composant buttonl (palette standard) et ecrire dans sa propriete caption : couleur. 


2- inserer un composant popupmenul ^ (palette standard), c’est un menu contextuel qui s’affiche lors du clique 
par le bouton droit de la sourie sur un composant lie a ce menu. 

3- double clique sur le popupmenul, une fenetre d’edition du menu contextuel s’affiche : 


Clic sur la case d’un element 
du menu contextuel 





Ecrire le titre de cet 
element du menu 




Clic sur la case suivante pour 
ecrire les elements suivants 


De cette fagon, on ecrit les elements suivant : 


Bleu 

Rouge 

Vert 


A la fin fermer la fenetre de I’editeur de menu. 

4- double clique sur le Popupmenul et double clique sur I’element « Bleu » et ecrire dans la procedure : 

Forml ,color:=clblue ; 

Et taper F12 pour revenir a la fiche. 

5- double clique sur le popupmenul et double clique sur I’element « Rouge >> et ecrire dans la procedure : 

Forml. color:=clred ; 

Et taper F12 pour revenir a la fiche. 

6- double clique sur le popupmenul et double clique sur I’element « Vert » et ecrire dans la procedure : 

Forml. color:=clgreen ; 

Et taper F12 pour revenir a la fiche. 

7- dans la fiche clique sur le boutonl (couleur) et dans son inspecteur d’objet choisir la propriete : 

^Popuplvlenu FopupMenuT^ Clic ici P our choisir le menu : PopupMenul 


Cette propriete assure que si on clique par le bouton droit de la sourie sur le Boutonl le popupmenul s’affiche. 

8- Lancer I’execution par la touche F9, ou par le bouton 


Et verifier le bon fonctionnement de la fiche. 
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Chapitre 1 : Introduction a Delphi7 


Partie 4 : 

1- insererun composant Colordialogl (palette Dialogues). 

2- inserer un composant button2 (palette standard) et sa propriety caption ■=> choix de couleur. 

3- Double clique sur le composant bouton2 et ecrire : 


Colordialogl .execute; 

Forml .color:=colordialog1 .color; 


4- Lancer I’execution par la touche F9, ou par le bouton 



Et verifier le bon fonctionnement de la fiche. 


Remarque : 

Delphi propose des boites de dialogues divers pour controler et enrichir d’interface des applications par des API et 
des DLL Windows ; ces boites figurent dans la palette des composants dans I’onglet dialogues; par exemple : 
Fontdialog : choix du font des composants de I’interface (la police du traitement de texte). 

Colordialog : choix de la couleur des composants de I’interface. 

Opendialog : donne la boite de dialogue Windows d’ouverture des fichiers 
Savedialog : donne la boite de dialogue Windows d’enregistrement des fichiers. 

Finddialog : recherche une chaTne de caracteres dans un texte. 

Replacedialog : recherche et remplacement d’une chaTne de caractere par une autre dans un texte. 

Printdialog : permet la configuration de I’imprimante en cas d'impression des etats. 

Nb : pour afficher une boite de dialogue quelconque on ecrit : nomboite. execute ; 

Exemple : fontdialog 1 .execute ; 

Chaque boite de dialogue a une propriete speciale qui donne la possibility de manipuler le resultat 
d’affichage de cette boite ; exemple : la couleur choisie dans la boite de dialogue Colordialog sera mise dans la 
propriete color de ce composant et on peut I’utiliser sur une fiche comme suite : 

Forml. Color :=Colordialog1 .Color ; 


TP2 : LANCEMENT D’UN LOGICIEL (EXECUTABLE) A PARTIR D’UNE FICHE DELPHI 

Pour lancer une application a partir de Delphi (exemple : une calculatrice) on precede comme suite: 

1- on insere un buttonl dans une fiche delphi. 

2- double clique sur ce bouton et ecrire dans la procedure : 

WinExec(‘calc.exe’,sw_show) ; 

Remarguel : 

Sw : show window (une fonction d’affichage des fenetres). 

Show : afficher. 

Winexec : windows execution 

Remarque 2 : 

Si Delphi ne reconnais pas le logiciel (Delphi ne reconnais que les logiciels installes par defaut avec 
I’installation de Windows) on doit ecrire le chemin complet de ce logiciel. 

Exemple : lancement du Microsoft word : 

WinExec(‘C:\Program FilesVMicrosoft Office\Office\Winword.exe’, sw_show) ; 


TP3 : LES COMMENT AIRES 

Les commentaires se placent entre accolades (pour un commentaire en plusieurs lignes), ou 
parentheses et etoiles (pour commenter en plusieurs lignes) ou derriere 2 slaches (pour commenter en une 
seule ligne). 

Exemple : 

{Ceci est un commentaire} 

(*Ceci est un autre commentaire*) 

//Tout ce qui suit et jusqu’a la fin de ligne est aussi un commentaire 
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TP4 : LA MANIPULATION DE L’INTERFACE PAR CLAVIER 

Interface 



Etapes : 

1-inserer les composants suivants de la palette Standard comme suite : 


Composant 

Propriete 

Valeur 

Editl 

text 


Edit2 

text 


Edit3 

text 


Label 1 

Caption 

Devoir 

Label2 

Caption 

Composition 

Label3 

Caption 

Moyenne 


2- clique sur le composant « Editl » et choisir son evenement OnKeyD 


own 


t 


'own 


Double clique ici 


1 


Et ecrire dans sa procedure : 

If key = vk_return then 
Begin 

If (strtofloat(edit1.text)<0)or(strtofloat(edit1.text)>20) then 
Showmessagefnote de devoir incorrecte') 
else 

Edit2.setfocus; 

End; 

3- tapez F12 et clique sur le composant « Edit2 » et choisir son evenement OnKeyD 
Et ecrire dans sa procedure : 

If key = vk_return then 
Begin 

If (strtofloat(edit2.text)<0)or(strtofloat(edit2.text)>40) then 
Showmessagefnote de composition incorrecte') 

Else 

Begin //Pour calculer la moyenne en ne gardant que deux chiffres apres la virgule on ecrit : 
Edit3.text:= floattostr (round((strtofloat (editl .text) + strtofloat (edit2.text))/3*100)/100 ); 
Edit3.setfocus; 

End; 

End; 


~3 

Double clique ici 


4- tapez F12 et clique sur le composant « Edit3 » et choisir son evenement 

If key = vk_f 1 0 then 

Begin 

Editl .clear; 

Edit2.clear; 

Edit3. clear; 

Editl .setfocus; 

End; 


5- Lancer I’execution par la touche F9, ou par le bouton i ; Et verifier le bon fonctionnement de la fiche. 


Remarquel : 

Key = touche (c’est I’une des touches du clavier), 
vk = value key (valeur de la touche tapee). 

Return = retour a la ligne (done : vk return = la touche entree) 

Setfocus = donner la main pour travailler par clavier (done : mettre le curseur du clavier sur un composant) 
Editl .setfocus = mettre le curseur du clavier sur le composant editl . 

Remarque2 : 

L’evenement prefere pour programmer les touches (frappes) du clavier est : onkeydown 
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Apprendre Delphi7 par V exemple 
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LEgON 4 : MESSAGES, MULTIMEDIA ... 


TP1 : LES MESSAGES DE DIALOGUE 

Delphi propose 2 types de messages de dialogue : 
1-les messages simples : 

C’est un message d’information 
Exemple 



- L’instruction qui appelle ce message est : 

Showmessage(‘bonjour tous le monde’) ; 

- on peut inserer un bouton de la palette standard et double clique sur ce dernier et ecrire I’instruction au-dessus. 



2-les messages avec options : 
Exemple : 


Messagedlg ( ‘ voulez vous quitter le logiciel’ , Mtconfirmation, [Mbyes, Mbno] , 

V V ' Y ' 



Message De Le texte du message 

Dialogue (C’est un choix libre) 


MT=Message 

Type 


MB=Message 

Button 


Numero du fichier 
D’aide 


Les types de messages possibles : 

Mtconfirmation = Confirmation 
Mtinformation = Information 
Mterror = Erreur 

Mtwarning = Avertissement 


Les boutons des messages possibles : 


mbYes 

= Un 

mbNo 

= Un 

mbOK 

= Un 

mbCancel 

= Un 

mb Abort 

= Un 

mbRetry 

= Un 

mblgnore 

= Un 

mb All 

= Un 

mbNoToAII 

= Un 

mbYesToAII 

= Un 

mbHelp 

= Un 


bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 
bouton avec le texte 


"Oui". 

"Non". 

"OK". 

"Annuler". 

"Abandonner". 

"Reessayer". 

"Ignorer". 

"Tous". 

"Non a tout". 
"Oui a tout". 
"Aide". 


Le Numero du fichier d’aide 

0 = pas de fichier d’aide 


Exemple : 

If Messagedlg (‘voulez vous quitter le logiciel \ mtconfirmation, [mbyes, mbno, mbcancel] ,0) =mryes then 

Application.terminate 

Else 

Showmessage(‘vous pouvez continuer ’) ; 
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Chapitre 1 : Introduction a Delphi7 


TP 2: LES FICHIERS MULTIMEDIA 

Interface : 



Etapes : 

1- inserer le composant : mediaplayerl (palette systeme). 

2- modifier sa propriety : 


r 


AutoOpen 


True 



3-dans sa propriete : 


r 


FileName 


Et choisir le fichier video : C:\program files\borland\delphi5\demos\coolstuf\speedis.avi. 
Et clique sur 


Ouvrir 


4-lancer I’execution et clique sur le bouton 


Remarque 

On peut lancer automatiquement le mediaplayer par un double clic sur un bouton et ecrire dans sa procedure : 

Mediaplayerl. play ; 

Dans ce cas on doit cacher le mediaplayer par la modification de sa propriete : 


I 


Visible 


False) 



Remarque : 

Les fichiers son de Windows sont dans le chemin : C:\windows\media 


TP3 : LES ANIMATIONS 

Interface : 



Etapes : 

1- inserer un composant Animate 1 q, (palette Win32) 

2- choisir le type d’animation a utiliser dans sa propriete : 

|| CommonAVI aviCopyFiles 


3- pour voir I’animation on modifie la propriete 



4- repeter les etapes 2 et 3 pour voir les autres animations. 
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TP 4 : LES BOUCLES DE TEMPS 

Interface : 



S 

Etapes : 

1- inserer un composant Timerl (palette systeme) 

2- inserer un composant Labell (palette standard) 

3- double clique sur le composant Timerl et ecrire dans la 

Labell. caption :=timetostr(time) 

4- Lancer I’execution par la touche F9, ou par le bouton 


procedure : 

; Et verifier le bon fonctionnement de la fiche. 


TP 5 : DESSINER UNE FONCTION 

Interface : 



Etapes : 

1- inserer un composant Timerl (palette systeme) 

2- double clique sur ce composant et ecrire dans la procedure : 

Forml. canvas. lineto (i*15, trunc(sin(i)*15)+100); 
l:=i+1 ; 

3- en haut de I’unite on trouve la partie des variables globales comme suite : 

Var forml :tform ; 

I integer ; //inserer la declaration d’une variable globale 
Implementation 

4- lancer I’execution 
Remarques: 

1- le dessin sur ecran se fait en pixel (Picture Element) done pour avoir un dessin visible il faut amplifier les 
coordonnees (x,y),en plus il faut decaler le dessin vers le milieu de la fiche par I’ajout de 100 pixels aux coordonnees 
(y) comme suite : 

Forml. canvas. lineto (i*15, trunc(sin(i)*15)+100); 

2- le composant Timer a une propriety interessante : Interval 

(On peut donner dans cette propriety la frequence de repetition du Timer) 

3- le canvas est une feuille transparente sur chaque fiche Delphi qui aide a dessiner des graphes. 


TP 6 : BARRE DE PROGRESSION 

Interface : 



Etapes : 

1- inserer un composant « Timerl » de la palette « Systeme >> et modifier sa propriety : interval ■=> 50. 

2- inserer un composant « ProgressBarl » ^ de la palette « Win32 » et modifier ses proprietes : 


r 


Smooth 


True 



3- Double clique sur le timerl et ecrire dans sa procedure : 

progressbar1.position:=progressbar1.position+1; 

4- Lancer I’execution pour voir la progression dans cette barre. 
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LEgON 5 : MENU PRICIPAL, BARRES D’OUTILS ... 

TP 1 : LE MENU PRINCIPAL 

Interface : 

f __ * 

Menu principal 1— U o lt^^l 



S 

Etapes : 

1- inserer de la palette standard le composant Mainmenul 

2- double clique sur le composant Mainmenul et ecrire les 




E 

j=J 


elements du menu dans leurs proprietes « caption » 


Inspecteur d'objets 

Fichierl 

Proprietes Evenements 


n 

3 


Action 


A. 

AutoCheck 

False 


AutoH otkeys 

rn a Parent 


AutoLineR educ 

rn a Parent 


Bitmap 

{vide] 


Break 

mbN one 


Caption 

Fichier 



Checked 

False 

= 

Default 

False 


Enabled 

T rue 


Grouplndex 

□ 


HelpContext 

□ 


Hint 



Imagelndex 

-I 


Name 

Fichierl 


Radioitem 

False 


Shortcut 

(vide] 

0 


T ous affiches ^ 



3- pour faire une ligne de separation on ecrit dans la propriety "caption" le caractere 

4- pour chaque element du menu on choisit une lettre et on ecrit avant elle le symbole pour assurer un raccourci 
clavier : 

Exemple : &Ed ition ■=> Edition 

Done : on tape le raccourci clavier Alt+E pour voir le menu Edition. 

5- pour choisir un raccourci Clavier quelconque on selectionne un element du menu et dans la propriety 


I 


Shortcut 


Ctrl+N| 



on choisit le raccourci adequat (exemple : Ctrl + N pour I’element « Nouveau » du menu). 

6- pour insere un sous menu dans un element du menu : 

On clique sur cet element et on tape les touches clavier : |CTRL| + 1->~| et on ecrit les elements du sous menu. 


7- pour insere des icones dans les elements du menu ou insere le composant "imagelistl" j| (palette "Win 32") 
Et double clique sur ce composant "imagelistl " " 


Et clique sur le bouton 


Ajouter... 


Et choisir une image dans le chemin : « c:\program files\fichiers communs\borland shared\images\buttons 
Et clique sur 


» 


□ uvrir 


Ensuite sur 


Oui 


Et repeter Ajouter pour tous les autres images et enfin clique sur 


OK 


Ensuit clique sur le composant "Mainmenul" et choisir dans sa propriete : 

S Images 

ImageListl T 

Enfin : double clique sur " MainMenul" et pour chaque element du menu on choisit une image par sa propriete : 


Imagelndex 

2 2ll 
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TP 2 : LES BARRES D’OUTILS 

Interface : 



La barre d’outils contient les elements les plus utilises du menu principal. 

/ 

Etapes : 

1 - inserer de la palette "Win 32" le composant "Toolbarl " J-* 

2- clique droit sur ce composant et choisir : "Nouveau bouton" 



| < | mi | | > | 1: 1 |Modifie |lnsertion \ Code X Piagramme / 


Pour chaque fois qu’on veux inserer un nouveau bouton, et on clic sur "Nouveau separateur" separer les groupes 
de boutons. 

3- clique sur le composant "toolbarl " en evitant ses boutons et modifier sa propriety 





Et cela pour que les boutons se gonflent lors du passage du pointeur de la sourie au dessus et se degonflent 
apres. 

4- Pour faire la liaison entre "imagelistl" et "toolbarl" ou clique sur « toolbarl >> 

Et on choisit dans sa propriety 


|H Images 


ImageListl 



5- Pour modifier I’image de 
propriety : 


change bouton du Toolbarl on clique sur ce bouton et on choisit son image par sa 


I 


Imagelndex 




6- pour expliquer le role de chaque bouton du Toolbarl on clique sur ce bouton on ecrit I’explication adequate dans 
la propriety : 

Hint NouveaiJ 


7- pour voir I’explication de ce bouton on choisit dans sa propriety : 


ir 


ShowHint 


T rue 
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LECON 6 : LA PROGRAMMATION DES BASES DE DONNEES 


Definitions : 

BD : Une base de donnees relationnelle est un ensemble de tables liees et gerees par un SGBD (Systeme de 
Gestion des Bases de Donnees). 

Table : c’est une structuration de donnees sous forme de champs et d’enregistrements. 

L’environnement de programmation Delphi donne la possibility de se connecter a presque tous les SGBD 
disponibles sur le marche. 

TP 1 : CREATION D’UNE ALIAS DE BASE DE DONNEES 

Delphi propose un module base de donnees pour simplifier la creation des alias de BD. 

• Pour acceder au module BD (nomme aussi BDE : Borland Database Engine) on choisit dans le menu 
Delphi : 

Outils => module base de donnees. 


un alias est un chemin logique qui localise et donne la possibility d’acces a la BD. Un alias represente une base de 
donnees ainsi que les informations de configuration de cette derniere. 


• Pour creer un nouveau alias on precede comme suite : 

■ Dans le menu du BDE on choisit : outils ■=> gestionnaires d’alias. 

Outils Fenetre Aide 
: Gestionnaire d'alias... 

Utilitaires ► 

Mots de passe. . . 


Ensuite dans la fenetre de gestionnaire des alias on precede comme suite : 


Ecrire le nom du 
nouveau Alias 


Clic sur le 
bouton OK 



® 


© 


© 


© 


Choisir le type 
du nouveau 
Alias ( Public) 


Clic sur le bouton 
Nouveau 


Enfin, et dans la fenetre qui s’affiche : 


Clique sur Oui pour enregistrer cet 
alias avec les alias publics. 




les alias publics out change 

m 

Voulez-vous sauvegarder les alias public 

s dans C:\Program Files\Fichiers communs\Borland 5hared\BDE\IDAPI.CFG ? 

Oui ill Non 1 Annuler 1 
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TP 2 : CREATION D’UNE TABLE 


1- Dans le menu BDE on choisit : fichier ■=> nouveau ■=> table. 

Ensuite On choisit le SGBD par defaut « paradox 7 » et clique sur lok 



On ecrit la structure de la table suivante : 





Pour enregistrer, on clique sur le bouton 

Ensuite, et dans la fenetre suivante on enregistre la table « produit >> comme suite 


Double clic ici, ou 
tapez n’importe 
quelle touche 
clavier pour creer 
un index orimaire 


Emegistrement de la table sous 


Enregistrer dani : ED WorkDir 


3 ® ct 




Norm du fichier : 

1 

A 

Enregistrer 1 



L 


Ivpe : 

| Paradox ( K .db) 

3 

Annuler 


Alias : 
Options : 


\m TRAVAIL: 

3 

wte. 1 

^TRAVAIL ] 




Isl bibliotheque: 




l=l commerce: 

HDBDEMOS: 

IsIDefaultDD: 



Clic sur 
enregistrer 

Ecrire le nom 
de la table 
(produit) 

Choisir I’Alias 
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TP 3 : CONNEXION ET AFFICHAGE D’UNE BASE DE DONNEES DANS UNE FICHE 


inserer de la palette BDE le composant « Tablel >> HE et manipuler ses proprietes 


DatabaseName 

Test T 


T ableName 

Produit. db T 


Active 

T rue T 


Pour afficher notre table on doit inserer de la palette Accesbd le composant « datasourcel >> et choisir 
dans sa propriety : 

K ^ p DataSet Tablel _^J 


Inserer de la palette Controlebd le composant « Dbgridl » □ et choisir dans sa propriety : 

|EI DataSource jDataSourcel T | 


TP 4 : LES CHAMPS CALCULEES ET LES BOUCLES DANS UNE BD (TP FACTURE) 

Interface : 



Etapes : 

1- Dans le module base de donnees (BDE) : 

a- On commence par la creation d’un nouveau alias nomme "tp_facture" (Voir les etapes du TP1) : 
b- Dans cet alias on creera la table suivante : 


Champ 

type 

taille 

index 

Code 

1 


* 

Designation 

A 

20 


Quantite 

N 



prix 

$ 




c- On enregistre cette table dans notre alias "tp_facture" sous le nom : « produit ». 
2- Dans une fiche Delphi on insere les composants suivants : 


Palette 

Composant 

Propriety 

Valeur 

BDE 

Tablel 

Databasename 

Tpfacture 

Tablename 

Produit 

Active 

True 

AccesBD 

Datasourcel 

Dataset 

Tablel 

ControleBD 

Dbgridl 

Datasource 

Datasourcel 

Standard 

Label 1 

Caption 

Montant 

Editl 

Text 


Button 1 

Caption 

Calcul 


3- Pour introduire le champ calcule « Total » dans la table produit on precede comme suite : 

■ On double clique sur le composant tablel , et dans la petite fenetre blache qui s’affiche : 
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Form 1. Table 1 



I r ' I r • I 


® 


ill 


Clic droit 
sur la petite 
fenetre 


Ajout de champs 



Lulu 


Ajouter des champs. . . 

Ctrl+A 

Nouveau champ. . . 

Ctrl+N 

Ajouter tous les champs 

Ctrl+F 

Couper 

Ctrl+X 

Copier 

Ctrl+C 

Coller 

Ctrl+V 

5upprimer 

Suppr 

Tout selectionner 

Ctrl+L 

Recuperer les attributs 

Ctrl+R 

Enregistrer les attributs 

Ctrl+5 

Enregistrer les attributs sous. . , 

Ctrl+E 

Associer les attributs. . . 

Ctrl+O 

Dissocier les attributs 

Ctrl+U 


— © 

Clic sur 

Ajouter des champs 


Champs disponiblel 

iReference 

Designation 

Qte_stock 

Priw 


Clic sur Ok 

©— 


Annuler 


Aide 


Ecrire le nom du nouveau 
champ calcule : Total 

© 


Form 1. Table 1 

□ 


JLtiJ 

Reference 


Designation 

Qte_stock 

Prix 


Clic droit 
sur la petite 
fenetre 


Ajouter des champs. . . 

Ctrl+A 

Nouveau champ . . . 

Ctrl+N^ — 

Ajouter tous les champs 

Ctrl+F 

Couper 

Ctrl+X 

Copier 

Ctrl+C 

Coller 

Ctrl+V 

Supprinner 

5uppr 

Tout selectionner 

Ctrl+L 

Recuperer les attributs 

Ctrl+R 

Enregistrer les attributs 

Ctrl+5 

Enregistrer les attributs sous... 

Ctrl+E 

Associer les attributs. . . 

Ctrl+O 

Dissocier les attributs 

Ctrl+U 


© 

Clic sur : 
Nouevau 
champ 


Choisir le type du champ 
calcule : Currency 

© 


Clic sur : OK 



Femer 
la petite 
Fenetre 

© 


Form 1. Table 1 



Reference 
Designation 
Qte_stock 
Prix 
[T otaj 
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4- Dans I’inspecteur d’objet du tablel on lance la procedure de I’evenement : Oncalcfield 



Inspecteur d'objets 

|| Tablel T Table 

Proprietes Evenements-4- 


BeforeDelete 

BeforeEdit 

Beforeinsert 

BeforeOpen 

BeforePost 

BeforeRefresh 

BeforeScroll 

M asterS ource 


OnCalcFields 

OnDelefeError 

OnEditError 

OnFilterRecord 

OnNewRecord 


T ous affiches 


3 


3 


V 


/a 



Clic sur evenement 



Double Clic lei 


Et on ecrit dans la procedure : 

tablel .fieldbyname(‘total’).ascurrency := tablel .fieldbyname(‘quantite’).asfloat * 
tablel .f ieldbyname(‘prix’).ascurrency ; 

5- Tapez FI 2 et pour calculer le montant global de ces produits on double clique sur le Bouton 1 et on ecrit 
dans sa procedure : (Supprimer le begin et end de la procedure et coller tous le code source suivant) 

var somme : real; 
begin 

somme := 0; 

tablel .first; // se pointer vers le premier enregistrement de la table 
while not(table1 .eof) do // tanque on a pas arriver a la fin de la table 
begin 

somme := somme + tablel .fieldbyname('totar).ascurrency; // cumul des totaux 
tablel. next; // passer a I’enregistrement suivant. 

end; 

editl.text := floattostr(somme); // afficher le cumul des totaux dans le comosant editl 

end ; 

6- Lancez I’execution. 

Remarque : 

La syntaxe d’ecriture d’un champ d’une table est comme suite : 
Source-du-champ.fieldbyname(‘nom-du-champ’).astype-du-champ 

Exemples : 

tablel .fieldbyname('totar).ascurrency 
tablel .fieldbyname('nom’).asstring 
table2.fieldbyname('date_naissance’).asdate 
table4.fieldbyname('quantite’).asfloat 
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TP 5 : LES CHAMPS CALCULEES ET LES BOUCLES DANS UNE BD (TP BULLETIN) 

Interface : 



Etapes : 

1- Dans le module base de donnees (BDE) : 

■ On commence par la creation d’un nouveau alias nomme "scolarite >> (voire Tpl) 

■ Dans cet alias on creera la table "bulletin" suivante : 


Champ 

type 

taille 

index 

Numero 

i 


* 

Matiere 

A 

20 


Devoir 

N 



Composition 

N 



Coefficient 

i 




- On enregistre cette table dans notre alias "scolarite" sous le nom : « bulletin ». 
2- Dans une fiche Delphi inserer les composants suivants : 


Palette 

Composant 

Propriety 

Valeur 

BDE 

Tablel 

Databasename 

scolarite 

Tablename 

bulletin 

Active 

True 

AccesBD 

Datasourcel 

Dataset 

Tablel 

ControleBD 

Dbgridl 

Datasource 

Datasourcel 

Standard 

Label 1 

Caption 

Moyenne generate 

Editl 

Text 


Button 1 

Caption 

Calcul 

Label2 

Caption 

Resultat 

Edit2 

Text 




Pour introduire les champs calcules « Moyenne_20 >> et « Moy_coef >> dans la table bulletin on procede 
comme suite : 

• On double clique sur le composant tablel 

■ Ensuite : on clique droit sur la petite fenetre et on clique sur « ajouter tous les champs ». 

■ Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ >>. 

■ Ensuite : on ecrit le nom du champ , =>Moyenne_20, on choisit le type du champofloat et on clique sur 



Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ >>. 
Ensuite : on ecrit le nom du champ^Moy^oef, et on choisit le type du champofloat et on clique sur |Ok 


Ensuite : on ferme la petite fenetre on clique sur le composant tablel et dans son inspecteur d’objet on 


clique sur I’ongle « evenements ». 

■ Ensuite : on double clique a droite de I’evenement « oncalcfields » et on ecrit dans la procedure : 


tablel .f ieldbyname('moyenne_20').asfloat:= (tablel .fieldbyname('devoir').asf loat+ 
tablel .fieldbyname('composition').asfloat)/3; 

tablel .fieldbyname('moy_coef ).asfloat:= tablel .fieldbyname('moyenne_20').asfloat* 
tablel .fieldbyname('coefficient').asinteger; 
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4- Pour afficher la moyenne generate et le resultat de ce bulletin on double clique sur le bouton "calcul" et on 
ecrit dans la procedure : (Supprimer le begin et end de la procedure et coller tous le code source suivant) 

var som_moy , mg : real; 

som_coef : integer; 
begin 

sommoy := 0; 
som_coef := 0; 
tablel .first; 

while not(table1 .eof) do 
begin 

som_moy := som_moy + tablel .fieldbyname('moy_coef).asfloat; 
som_coef := som_coef + tablel .fieldbyname('coefficient').asinteger; 
tablel. next 

end; 

mg := som moy / somcoef; 

Mg := round(mg*100)/100 ; 
editl.text := floattostr(mg); 
if mg <10 then 

edit2.text := 'etudiant ajourne' 
else 

edit2.text := 'etudiant admis'; 
end; 


Remarque : 

❖ Pour controler le format d’affichage des nombres reels (champs de type float) dans une BD (limiter le 
nombre de chiffres apres la virgule) on procede comme suite : 

■ double clique sur le composant « tablel ». 

■ clique sur le champ a formater (pour nous on va manipuler les deux champs «moyenne_20» et 


«moy_coef») 

■ Ecrire dans sa propriety : 


1 1 -■ 

EditFormat 

tttt.ttttj 


(# Represente un chiffre, done le format ##.## represente 2 chiffres avant et apres la virgule) 


TP6 : LE DBNAVIGATOR 

Un DBNavigateur Contient tous les operations de base sur une source de donnees (table ou requete) 


Actualiser I’affichage des donnees : Tablel .refresh ; + 
Annuler les modifications : Tablel .cancel ; < 4 — , 

Enregistrer les modifications : Tablel .post ; 4 

Modifier les donnees : Tablel .edit ; -4 — 

Supprimer I’enregistrement courant : Tablel .delete ; ◄ — 1 


M 

■M 

► 

W 

+ 

— 

- 


X 

p 


1 — ► Ajouter un nouveau enregistrement : Tablel. insert ; 
— ►Alter au dernier enregistrement : Tablel .last ; 

► Aller a I’enregistrement suivant : Tablel. next ; 


— ► Aller a I’enregistrement precedant : Tablel. prior ; 

-► Aller au premier enregistrement : Tablel .first ; 

/ 

Etapes : 

On insere le composant DBNavigatorl de la palette controleBD. 

Pour le connecter a une source de donnees on choisit dans sa propriete : 


EIDataS 


ource 


DataSourcel 


Pour afficher I’explication (sous forme d’info-bulls) de chaque bouton du DBNavigateurl on choisit dans sa 
propriete: showHint 


True 
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LEgON 7 : LES INDEX SECOND AIRES ET LEURS UTILISATIONS 


TP1 : LA CREATION DES INDEX SECONDAIRES 

1- dans le Module base de donnees creez la table suivante : 


Champ 

type 

taille 

index 

code 

1 


* 

designation 

A 

20 


Quantite 

N 



prix 

$ 




1- Avant d’enregistrer cette table et Pour inserer des index secondaires pour chaque champ on precede 
comme suite : 



Choir dans la liste : 

Index secondaires 


Clic sur le bouton : 

Definir 



Ecrire le nom de I’index 
secondaire (exemple : cl) 
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■ Repeter les operations : 2, 3, 4,5 ,6 ,7 pour les autres champs de la tables 
On peut proposer par exemple les noms d'index secondaires comme suite : 
Designation : c2 
Quantite : c3 
Prix : c4 


2- A la fin on aura I’affichage suivant : 


Clic sur enregistrer, et choisir 
da la fenetre d’enregistrement : 
Alias : DbDemos 
Table : Produit 



TP2 : LE TRIE D’UNE TABLE 



Clic ici pour trier la table par I’un des champs. 
(Dans cet affichage la table est triee par le 
champ quantite) 


1- dans une fiche Delphi inserer les composants suivants : 


Palette 

Composant 

Propriety 

Valeur 

BDE 

Tablel 

Databasename 

dbdemos 

Tablename 

produit 

Active 

True 

AccesBD 

Datasourcel 

Dataset 

Tablel 

ControleBD 

Dbgridl 

Datasource 

Datasourcel 


2- pour faire le trie de la table produit : 

Clique sur le composant dbgridl . 

Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements » 

Ensuite : on double clique a droite de son evenement « ontitleclick » et on introduit le code source suivant : 

If column.index = 0 then 
Tablel.indexname :=’cT ; 

If column.index = 1 then 
Tablel.indexname :=’c2’ ; 

If column.index = 2 then 
Tablel.indexname :=’c3’ ; 

If column.index = 3 then 
Tablel.indexname :=’c4’ ; 

2- Lancer I’execution par F9 ; si on clique sur un entete de colonne (un champ) dans le DbGridl, cette table 
sera triee automatiquement par ce champ. 
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TP3 : LE FILTRAGE D’UNE TABLE 



Le filtrage est une technique tres 
utile pour faire une recherche 
rapide dans les BD. 

A chaque fois qu’on ecrit une 
(des) lettre (s), seulement les 
enregistrements contenant des 
designations (noms) commengant 
par cette (ces) lettre (s). 

Si on supprime toutes les lettres, 
tous les enregistrements de la 
table s’afficheront. 


Pour faire le filtrage : 

1- Garder I’interface du Tp2 et inserer un composant Editl et effacer sa propriete « text » 

2- Inserer un composant Labell et ecrire dans sa propriete : Caption ■=> filtrage. 

3- Pour faire le filtrage par le champ designation double clique sur ce Editl (generation de la procedure 
« onchange >>) et ecrire le code source suivant : 

4- 

if editl .text <> " then 
begin 

tablel .close; 
tablel .filtered :=true ; 

tablel .filter :=’[designation]=‘ + #39 + editl .text + + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 

Remarque : 

Dans une base de donnees on peut voir des fichiers avec les extensions suivantes: 

*.db : c'est une table (sa structure (champs) et son contenu (enregistrements)). 

*.px : c'est un index primaire (cle d'une table) 

*.xg0,*.xg1 ,.... ,*.yg0,*.yg1 : les index secondaires d'une table. 

Rappel : 

Dans une application delphi (logiciel) on peut voir des fichiers avec les extensions suivantes : 

*.dpr : Delphi project : c'est I'unite principale qui represente le projet (le logiciel). 

*.pas : Pascal : c'est une unite. 

*.dfm : Delphi Form: c'est une fiche. 

*.dcu : Delphi compiled unit : c'est une unite compilee 
*.exe : Executable : c'est le fichier executable du logiciel. 
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TP4 : LA RECHERCHE SIMPLE DANS UNE TABLE 



- Pour faire la recherche simple: 

1- garder I’interface du Tp3 et inserer un composant Edit2 et effacer le contenu de sa propriety « text » 

2- inserer un composant Label2 et ecrire dans sa propriete : caption ■=> chercher. 

3- inserer un composant Buttonl et ecrire dans sa propriete : caption ■=> lancer la recherche. 

4- double clique sur ce Buttonl et ecrire dans sa procedure le code source suivant : 

Table1.indexname:='c2'; // I’index du champ objet de la recherche (designation). 

Tablel.setkey ; // preparation de la recherche dans la table produit. 

Table1.fieldbyname(‘designation’).asstring :=edit2.text ; // la valeur a rechercher dans ce champ. 
Tablel.gotokey ; // lancer la recherche. 

Remarquel : 

Delphi propose une autre instruction plus simple pour faire la recherche sur une base de donnees comme suite : 

Tablel.indexname :=’c2’ ; 

Table1.Findkey([Edit2.Text]); // Cette instruction remplace les trois instructions precedantes. 

Remarque2 : 

Pour avoir une ligne de selection permanente dans le Dbgridl qui indique I’enregistrement resultat de la recherche : 
On clique a gauche de la propriete « 0 Options » du dbgridl (exactement sur la case 0 ). 

Choisir dans la sous propriete : DGRowSelect otrue. 

Choisir dans la sous propriete : DGAIwaysShowSelection ^true. 

Quelques explications: 

Eof : end of file : c'est la fin d'une table. 

Bof : Begin of file : c'est le debut d'une table. 

#39 : c'est le code ASCII de l'apostrophe ' . 


TP5 : LES RELATIONS MAITRE-DETAIL 



1- Dans le BDE creer la table suivante : 


Champ 

type 

taille 

index 

Code_grp 

i 


* 

designation 

A 

10 


speciality 

A 

20 
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On enregistre cette table dans notre alias "dbdemos" sous le nom : « groupe ». 


2- Dans le BDE (module base de donnees) creer la table suivante : 


Champ 

type 

taille 

index 

Code_etud 

1 


* 

Nom 

A 

20 


prenom 

A 

20 


Date_nais 

D 



Lieu_nais 

A 

25 


Code_grp 

i 




Avant d’enregistrer cette table inserer un index secondaire pour le champ code_grp (cle etrangere) comme suite : 
On choisit en haut et a droite de la fenetre dans la liste des choix : proprietes de la table ■=> index secondaires. 


On clique sur le bouton |Definir 


On clique sur le champ « code_grp » dans la liste^a gauche. 
On fait passer ce champ a droite par le bouton 


<=> 


On clique sur le bouton |OK| et on propose un nom a I’index secondaire de ce champ, exemple : « c6 
On enregistre cette table dans notre alias "dbdemos" sous le nom : « etudiant >>. 


» 


3- Dans une fiche Delphi inserer les composants suivants : 


Palette 

Composant 

Propriety 

Valeur 

BDE 

Tablel 

Databasename 

dbdemos 

Tablename 

groupe 

Active 

True 

AccesBD 

Datasourcel 

Dataset 

Tablel 

ControleBD 

Dbgridl 

Datasource 

Datasourcel 

BDE 

Table2 

Databasename 

dbdemos 

Tablename 

etudiant 

Active 

True 

AccesBD 

Datasource2 

Dataset 

Table2 

ControleBD 

Dbgrid2 

Datasource 

Datasource2 


3- Pour que la table etudiant soit liee par une relation maitre-detail (pere-fils) avec la table groupe 
(La table groupe ■=> maTtre (pere), la table etudiant ■=> detail (fils)) on procede comme suite : 

On clique sur le composant table2 « etudiant», et on choisit dans sa propriety : mastersource ■=> datasourcel. 
Ensuite : dans sa propriety « masterfield » on clique sur le petit bouton 


et on suit les etapes suivantes 



Le resultat sera comme suite : si on choisit un groupe dans le dbgridl on aura seulement les etudiants de ce groupe 
qui s’affichent dans le dbgrid2. 
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LEQON 8 : INTRODUCTION AUX REQUETES SQL 

PRESENTATION GENERALE 

1 - Definition : 

Le langage SQL (Structured Query Langage) est un langage universel de creation, de gestion et 
d’interrogation des bases de donnees. SQL est integre dans plusieurs langages de programmation. 

2- Les sous langages du SOL 

Le SQL se subdivise en differents langages : 

2.1- Langage de description des donnees (DDL : Data Definition Language) : 

Permettant la definition des elements d'une base de donnees, Celui-ci comprend trois commandes qui permettent 
I’administration d’une base de donnees, ces commandes de base sont : 


CREATE 

Creation de tables ou d’index 

ALTER 

Modification de tables ou d’index 

DROP 

Suppression de tables ou d’index 


2.2- Langage de manipulation des donnees (DML : Data Manipulation Language) : 

Permettant la manipulation et I’extraction des donnees. Celui-ci comprend les commandes qui permettent les mises 
a jour des donnees d’une table, ces commandes de base sont : 


INSERT 

Insertion de nouvelles lignes dans une table 

UPDATE 

Mise a jour de certains champs d’une ligne dans une table 

DELETE 

Suppression des lignes inutiles dans une table 


2.3- Langage de controle des donnees (DCL : Data Control Language) : 

Permettant la gestion des droits d'acces aux donnees et des transactions (en cas de programmation sous reseau). 


GRANT 

Attribution de droits d'acces 

REVOKE 

Suppression de droits d'acces 

COMMIT 

Prise en compte des dernieres transactions pour une mise a jour des donnees 

ROLLBACK 

Suppression des dernieres transactions et restauration des anciennes donnees 


2.4- Langage d’interrogation des donnees (DQL : Data Query Language). 

Bien que ne comprenant qu’une seule commande SELECT, celle-ci etant la plus utilisee car si le 
peuplement d’une base de donnees est une etape importante, les differentes requetes pour I’extraction des donnees 
represented autant d’etapes importantes pour tous type d’utilisation : 


SELECT 


Extraction des donnees par projection, par selection, avec restriction, par groupement 


Exemple 1 : 

CREATE DATABASE Commerce; 

START DATABASE Commerce; 

CREATE TABLE client (Numero SMALLINT, nom CHAR(30), prenom CHAR(30), adresse CHAR(50), telephone 
CHAR(15)); 

STOP DATABASE; 

Ici nous venons de creer une base de donnees Commerce (ligne 1). 

On ouvre ensuite cette base de donnees (ligne 2). 

On y cree une table de nom Client, qui contient 5 colonnes. (ligne 3) 

On ferme la base de donnee (ligne 4) 

Exemple 2 : 

INSERT INTO Client VALUES (1,'MOHAMED’, ’Amine’, 'Setif, ’036-84-46-68’); 

Ici, on insere un nouveau enregistrement dans la table client ayant pour valeur de champs les donnees mentionnees. 

UPDATE Client SET prenom=’Redha’, adresse='Alger’ WHERE nom=’MOHAMEDI’; 

Cette requere SQL modifie le penom et l’adresse du client nomme MOHAMEDI par les valeurs mentionnees. 

DELETE FROM Client WHERE numero=15; 

Cette requete supprime 1’ enregistrement (le client) numero 15. 
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TP1 : LES REOUETES SOL LES PLUS UTILISEES 


1- Svntaxe simple : 

Soit la table produit (code, designation, quantite_stock, prix unite, type_produit) 
On veut selectionner tous les champs et enregistrements de cette table 
Svntaxe : 

select * 
from produit 


Pour executer ce script on insere un composant Query H (palette accesBD) et on manipule ses proprietes 


Imspecteur d'objets 



|| Query 1 

~n 


Proprieties Evenements 

1 



Active 

T rue 


A 



AutoUalchields 

1 rue 




AutoRefresh 

False 




CachedU pdates 

False 




Constrained 

False 




nnnftfmints 

it fh 

erlr iinn" fr.=iinfs:l 




DatabaseName 

commerce 




“D a tab ource 





Filter 





Filtered 

False 




El FilterOptions 

[] 

— 



Name 

Quer.v1 




□ bjectView 

False 




ParamCheck 

T rue 




Params 

(T Params] 




R equestLive 

False 




f 1 ! PssinriN 





SQL 

(T Strings) 




H""ag 

TT 




UniDirectional 

False 




UpdateMode 

upWhereAll 

- 



|T ous affiches 






© 


© 


© 


On test le fonctionnement de ce script 
SQL. Avant de rendre cette propriety 

True, ce composant compile ce script 
SQL et ne donne pas true que si la 
requete a une syntaxe juste. 


On se connecte a notre Alias. 


On ecrit le script SOI dans cette propriete. 


Remarque : 

Select : selectionne un ou plusieurs champs en mentionnant leurs noms (* veut dire tous les champs) 

On peut aussi Introduire les champs calcules en donnant leurs noms et la formule de calcul. 

From : decide la source de donnees a selectionner (la table source de donnees). 

Where : donne un ou plusieurs criteres de selection des enregistrements. 

2- requete avec critere de selection : 

Si on veut selectionner que les produits qui ont une quantite de stock superieur a 10, on ecrit : 

select * 
from produit 

where type_produit = ‘consommables’ 

Done : la clause where donne la possibility d’introduire un critere de selection qui sera generalement une 
comparaison d’un champ a une valeur de meme type. 

3- requete avec parametre drequete dvnamique) : 

Si on veut que la valeur du critere de selection soit variable : 

Exemple : a chaque fois on donne une valeur et on selectionne les quantites superieures a cette valeur done on doit 
avoir une variable qui contiendra a chaque fois une valeur differente : 

Svntaxe : 

select * 

from produit 

where type_produit = :c 

Remarquel : 

- le parametre ici est nomme C et les deux points qui le precede indiquent que e’est un parametre. 

- le parametre en suite doit avoir un type adequat (compatible au type du champ utilise dans la comparaison). On 
donne un type au parametre par la propriete : 
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|| Params 




Inspecteur d'objets 

Queryl. Params[0] 

Proprietes Evenements 


Data Type f (String 

Name c 

NumericScale 0 

ParamType ptUnknown 

Precision 0 



Choisir le 
type du 
paramatere 


Remarque2: 

II taut choisir apres un evenement adequat pour donner une valeur au parametre par les instructions suivantes : 

Query 1. close ; 

Queryl .parambyname('c').asstring:=combobox1 .text; 

Queryl .active:=true; 

Pour cela on peut inserer un composant Comboboxl (palette standart) et ecrire dans sa propriety Items les valeurs : 
materiel, consommables, meuble. Ensuite on double clic sur ce composant et on introduit le code source precedant. 

4- les reauetes contenant des champs calcules : 

On peut introduire un champs calcule dans une requete en le mentionnant dans la partie select avec les champs 
fixe. Et cela en donnant le nom du champ precede de la formule qui le calcul. 

Exemple : on veut calculer le prix total de chaque produit a savoir sa quantite_stock. 

Svntaxe : 

Select code, designation, quantite_stock, prix_unite, (quantite_stock * prix_unite)as Total 
From produit 

5- les reauetes des statistiaues : 

On peut preparer une table contenant par exemple les type des produits (exemple : materiel, consommables, 
meuble) et avoir comme resultat de la requete des donnees pretes a etre representer par un graphe des statistiques 
de reussite. 

Svntaxe: 

Select type_produit, count(type_produit) as nombre 

From produit 

Group by type_produit 
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TP2 : LA CONSULTATION PAR DES REQUETES PARAMETREES 


W Consultation des etu diants 



Choisir une section 




Code_etud 

Nom 

Prenom 

Section 

► 

3 

Farid 

Faipal 

2 


5 

Redha 

Mourad 

2 


1 - dans le module base de donnees creer la table suivante : 


Champ 

type 

taille 

index 

Code_etud 

1 


* 

Nom 

A 

20 


Prenom 

A 

20 


Section 

A 

15 



On enregistre cette table dans notre alias "dbdemos" sous le nom : « etudiant2007 ». 

2- dans une fiche Delphi inserer les composants suivants : 


Palette 

Composant 

Propriety 

Valeur 

BDE 

Queryl ^ 

SQL 

Databasename 

dbdemos 

SQL 

. . . 

Select * 

From etudiant2007 
Where section = :sec 

params 

Sec ^datatype -> ftstring 

Active 

True 

AccesBD 

Datasourcel 

Dataset 

Queryl 

ControleBD 

Dbgridl 

Datasource 

Datasourcel 

Standard 

Label 1 

caption 

Choisir une section 

Comboboxl 

text 


Items 


A 

B 

C 


3- Double clique sur le Comboboxl et ecrire dans sa procedure : 

queryl .close ; 

query1.parambyname(‘sec’).asstring :=combobox1 .text ; 
queryl .active:=true; 

4- lancer I’execution et choisir dans le Comboboxl la section que vous voulez afficher ses etudiants. 
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Ann rend re Delphi ; 7 par /’exemp/e 


Chapitre 1 : Introduction a Delphi7 


TP3 : LES GRAPHES 



1- Garder la table etudiant2007 du TP2 : 

2- Dans une fiche Delphi inserer les composants suivants : 


Palette 

Composant 

Propriety 

Valeur 

BDE 

Queryl 

Databasename 

dbdemos 

SQL 

Select section , count(section) as nombre 
From etudiant2007 
Group by section 

Active 

True 


3- inserer de la palette « controleBD >> le composant Dbchartl ® et proceder comme suite : 

■ Double clique sur ce composant 

(?) Clic sur le bouton Ajouter (?) Choisir le type du graphe Sectoriel 


Modification de DBG hart 1 


Graphe Series 

Series General Axes Titres Legends Volets Pages Murs 




_r 


5 


] 3D 



i Ajnuter. . || 


Supprimer 


litre... 


Uloner 


Modifier... 


Aide... 


Fermer 



Galerie TeeGliai t 


S tandard f onctions 


Histogram ne Histogramme horiz. 


&& mi 


Point 


sect or it 




Ligne rapide 




Gantt 


Fleche 


Bulle 



flt * 



3 ) Clic sur Ok 


Aire 



Forme 




(?) Choisir L’ongles Serie 
(?) Choisir I’ongles Source de donnees 

(?) Choisir dans la liste DataSet 
(?) Choisir dans la liste Queryl 

(?) Choisir le champ alphanumerique 
(?) Choisir le champ numerique 



10 


Enfin clic que Fermer 


Modification de DBChartl 


Graphe [Series ; 

Seriesl Sectoriel: Seriesl 

Format General Marques Sour^ de donnees 


[Dataset 


l 


Dataset : 


ueryl 


□belles : |Code_etud 


'f 


Sectoriel : |Code_etu ^ 


Aide... 


- 




T DateHeure 


Fermer 
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Apprendre Delphi7 par I’exemple 


Chapitre 1 : Introduction a Delphi7 


LEgON 9 : LES ETATS D’IMPRESSION 


INTRODUCTION 

Les versions Delphi qui ont precede Delphi7 ont proposes les composants Quickreport pour imprimer les donnees. 
On presenters maintenant les etapes d’installation des composants quickreport en Delphi7. 


Installation des composants Quickreport en Delphi7 : 

Choisir dans le menu Delphi : Composant ■=> Installer des packets. 



Paquets 

Paquets de conception 


Clic sur le bouton Aj outer 


v* Ameliorations Emacs Editeur Borland 
v* Ameliorations script Editeur Borland 

Composant d'alerte d'evenement Borland Interbase 
Composant Internet Borland 
V Composant SimpleDataset Borland (DBX) 

^ Composants Acces donnees InterBase 


- 


c: \program files\borland\delphi7\B in\dclemacsedit70. bpl 






A ■ > — | ■ | h |=. r 





i . U LCI . . . 


Retirer 


Composants 


Paquets d execution 

Construire avec les paquets d'execution 

i 

lvcl;rtl;vclx;indv;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbr 

Ajouter. . . 



ibefaui 
■! 



□ K 

Annuler 

Aide 

^ 

1 1 

Z__ 1 


Clic sur Ok 




Choisir I’unite : Dclqrt70.bpl 



Clic sur Ouvrir 
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Apprendre Delphi7 par Uexemple 


Chapitre 1 : Introduction a Delphi7 


TPl : Tmprimer les enregistrements d’une Table (Liste des produits) 


3- 


4- 


5- 

6 - 


7- 


Procedes : 

1- inserer un composant Quickrepl M (de la palette Qreport) sur la fiche. 

2- La source de donnees a imprimer sera la table produit, Done inserer de la palette BDE le composant « Tablel >> 
et dans son mpecteur d’objet on manipule ses proprietes : 


Choisir notre alias DatabaseName Test) _^J 
Choisir la table TableName Produit. db 


Activer la connexion a la table | Active |T rue 


on selectionne le composant Quickrepl pose sur la fiche pour avoir son inspecteur d’objet et on manipule dans 
ce dernier les proprietes comme suite : 

- pour modifier la taille d’affichage de la page d’impression « quickrepl » on ecrit dans la propriety : 

| Zoom 70| 

- on ouvre la propriety Bands en cliquant sur I’icone 0 a son gauche 

10 Bands 


Clic lei 


tTQuickRepBandsj 


- on doit mettre a true les sous proprietes suivantes : 

(TQuickEepBands) 

True * 


□ Bands 

HasColumnHeader 


HasDetail 

True) . 

HasPageFooter 

T rue 

HasPageHeader 

False 

HasSummary 

False 

HasTitle 

T rue 


Hascolumnheader : bande d’entetes de colonnes. 


bande a une caracteristique speciale de se 
repeter suivant le nombre d’enregistrements). 

Hastitle : pour avoir une bande de titre d’etat. 

on elargi la hauteur de la bande de titre d’etat. 

dans la palette des composants du Qreport on insere autant de composants Qrlabel |k necessaire dans la 
bande titre pour bien representer I’organisme proprietaire de I’etat (societe, commergant ...); ces composants 
contiendront des textes explicatives dans leurs proprietes Caption. 

Dans la bande entete des colonnes on insere des composants Qrlabel representant par le texte de leur propriety 
Caption le nom des colonnes a imprimer (code, designation, quantite...). = 

Dans la bande detail on insere toujours de la palette Qreport des composants QrDbText ^ qui seront 
positionnees respectivement juste en dessous des composants Qrlabel de la bande entete de colonnes(un par 
un). 

chaque composant Qrdbtext sera lie a un champ de la table produit a imprimer et suivant le Caption du Qrlabel 
au dessus. La liaison du Qrdbtext avec le champ se fait : 

- on se pointant par sa propriety DataSet a la table produit. 


- on se pointant par sa propriety DataField au champ adequat. DataField 


DataSet 

fT ablel T 


DataField 

Code T 


8- en fin n’oubliez pas de lier le composant Quickrepl lui meme a la table produit. Cela se fait en cliquant sur ce 
composant en evitant les bandes et dans son inspecteur d’objet on se pointe par la propriety dataset a la table 
produit. 

9- Pour previsualiser notre etat on ecrit dans la procedure d’un bouton (son caption sera : « previsualiser ») 
I’instruction : 

quickrepl .preview ; 

10- Pour imprimer notre etat on ecrit dans la procedure d’un bouton (son caption sera : « imprimer ») I’instruction : 

quickrepl .print ; 


Ctrl 


Ctrl 


Ctrl 


Ctrl 


11- Pour encadrer les champs de I’etat d’impression on utilise le composant Qrshape 
+ : deplacer le composant selectionne a gauche. 

+ : deplacer le composant selectionne a droite. 

+ <f> : deplacer le composant selectionne vers le haut. 

+ 4' : deplacer le composant selectionne vers le bas. 

+ : reduire le composant selectionne a gauche. 

+ : agrandir le composant selectionne a droite. 

+ <f> : reduire le composant selectionne vers le haut. 

+ 4' : agrandir le composant selectionne vers le bas. 
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“fa et on le controle par 


Shift 


Shift 


Shift 


Shift 







Ann rend re Delphi ; 7 par /’exemp/e 


Chapitre 1 : Introduction a Delphi7 


Remaaue : pour mettre le cadre (QRShape) en arriere plan et voir les autres composants ( QRLabal, QREdit) on doit 
cliquer par le bouton droit de la sourie sur ce cadre et choisir dans le menu contextuel : 

Options de controle ■=> mettre en arriere plan. 


1 2345 6733 10 11 12 13 14 15 It- 17 IS 13 20 



^ P re visualisation d'impression 



m ■ 

m h < ► m M & 1=1 sat 

Fermer 



A 


Page 1 sur 1 


SOCIETE COMMERCE MULTIPLE 

LISTE DES PRODUITS 


Ref erence 

Designation 

Qte_stock 

Prix 

Tv'A 

1 

Ordinateur 

85 

20 

Fonction 

2 

1 mp ri ma nt e 

32 

45 

Fonction 

3 

Sc anneur 

3560 

20 

Fonction 

4 

Table 

31 

84 

Fonction 

5 

Timbre 

1 1 

30 

Fonction 
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Apprendre Delphi7 par Uexemple 


Chapitre 1 : Introduction a Delphi7 


LEgON 10 : DELPHI EST UN RAD 

TP1 : UNE FICHE SIMPLE D’IMPRESSION D’UNE TABLE 


Delphi est un RAD (Rapide Application Developpement) et propose des assistants qui aident a la creation d’une 
grande variete de fiches. 

Pour la creation d’une fiche d’impression (image suivante) on precede comme suite : 


if P re visualisation depression 



□SH 

0B1 M < ► M 

is 

y £ 

Fermer 



Norn 

Prarom 

Datejrais 

lieu_nae 

Codejrp 

1 Artie 

Ivfaurad 

1201/1982 

Saif 

2 

2 Redha 

lyybhanmed 

0508/1981 

E&jh-Q 

2 

3 Souhil 

Tarek 

24/12/1980 

An tebra 

2 


1. Dans le menu Delphi on choisit : Fichier ■=> Nouveu ■=> Autre .. 

Edition Chercher Voir Projet Executer Compos ant 


Fichier 



Nouveau 

► 

m 

Application 

- 4 

Ouvrir. . . 


m 

Application CLX 

a 

Ouvrir un pro jet. . . 

Ctrl+Fl 1 

PE 

Module de donnees 


Reouvrir 

► 

a 

Fiche 

m 

Enregistrer 

Ctrl+S 

■ 

Cadre 

;Q; 

Enregistrer sous. . . 


IF 

Unite 

e "i- 

Enregistrer le projet 

sous. . . 

n 

Autre. . . 


?b 


Tout enregistrer Maj+Ctrl+5 
Former 
Tout termer 


Utiliser I'unite. . . 

Alt+Fll 

Imprimer. . . 



JTL Quitter 


2. Dans la boite de dialogue qui s’affiche on choisit I’onglet « affaires » et dans ce dernier on choisit I’icone 


« expert quick report » et on clique sur le bouton |Ok 

3. Dans I’assistant qui s’affiche on clique en bas sur le bouton llancer I’expert 


Expert d'etat 


Selection d'une table 
Alias ou repertoire | commerce 

Norn de table 


F'arcourir 


produit.DB 


3 - 


S election des champs 
Champs disponibles 


Champs selectionnes 


<< 


Reference 
Designation 
0 te_stock 
Priw 


Xerminer 


Annuler 




Choisir I’alias de la base de donnees 


Choisir la table a imprimer 



Faire passer tous les champs a droite 
pour les imprimer tous (si on veux 
imprimer quelques champs seulement, 
on les fait passer un par un par le bouton 


plus haut 


) 



A la fin on ferme la petite fenetre 
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Apprendre Delphi7 par Uexemple 


Chapitre 1 : Introduction a Delphi7 


TP2 : UNE FICHE SIMPLE DE CONNEXION ET D’AFFICHAGE ET D’IMPRESSION D’UNE TABLE 


RAd simple 


Code etud N orn 




Prenom 


Imprimer 


Date nais 


Lieu nais 


Code_grp 



1 

Amine 

Mourad 

1 12/01 /I 9S2 

Setif 


2 




Code_etud 

N om 

Prenom 

D ate_nais 

Lieu_nais 

Code_grp J 

w 

► 

1 

Amine 

Mourad 

1 2/01 /I 982 

Setif 

2 



2 

Redha 

Mohammed 

05/08/1 981 

El Eulma 

2 



3 

Souhil 

T arek 

24/1 2/1 980 

Ain Kebira 

2 



1 - 


2 - 

3- 

4- 

5- 


6 - 


7- 


Pour creer cette fiche on procede comme suite : 

Dans le menu Delphi on choisit : fichier ■=> nouveau 

Dans la boite de dialogue qui s’affiche on choisit I’ongles « affaires >> et dans ce dernier on choisit I’icone 


« expert fiche base de donnees >> et clique sur le bouton £)k. 

Dans I’assistant qui s’affiche on choisit dans la premiere etape le type de la fiche : 

® Creer une fiche simple 


Clique sur le bouton Suite 


Choisir dans la liste « lecteur ou nom de I’alias » notre alias « scolarite 


» 


Suivant 

et clique sur le bouton 

» 

et clique sur 

Suivant 


Clique sur I’option « ® dans une grille » et clique sur Suivant 


Enfin clique sur I’option « ® fiche seulement >> et clique sur |Terminer 
Clique sur le composant « dbgridl » et choisir dans sa propriety «align» ■=> none, et reduire la taille de ce 
dbgrid vers le bas; et clique sur le composant tablel et modifier sa propriete : « Active>> ■=> true. 

Double clique sur le composant tablel et clique droit sur la petite fenetre et clique sur «ajouter tous les 
champs» 

Glisser les champs un par un vers I’espace libre en haut de notre fiche. 

Clique sur la nouvelle fiche en evitant le clic sur I’un de ses composants et ecrire dans sa propriete : 
name ■=> fiche_etudiant. 

Ensuite, clique sur (menu Delphi) : fichier ■=> enregistrer, et nommer I’unite : etudiant. 

On doit maintenant preparer I’impression de la liste des etudiants comme suite : 

Choisir dans le menu Delphi : fichier ■=> nouveau et clique dans la fenetre qui s’affiche sur I’ongle 
« affaires ». 


Clique sur I’element : « expert quickreport » et clique sur fDk. 

Clique sur le bouton « lancer I’expert », et choisir I’alias « scolarite >> et la table « etudiant >>. 
Clique sur le bouton 


» 


qui fait passer tous les champs vers la droite pour les imprimer tous et clique sur 


Ok 


Clique sur la nouvelle fiche en evitant le clic sur le composant « quickrepl >> et ecrire dans sa propriete : 
name ■=> fiche_etat_etudiant. 

Ensuite, clique sur (menu Delphi) : fichier oenregistrer, et nommer I’unite : etat_etudiant. 


On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche «fiche_etudiant» et on clique sur £)k. 
Ensuite, et pour une impression bien presentee des etudiants on insere un composant popupmenu (palette 
standard). 

Ensuite, on double clique sur ce composant et on introduit les deux elements « previsualiser » et « imprimer ». 
Ensuite, on ferme la petite fenetre du « popupmenu » et on insere de la palette « supplement » le composant 
« speedubuttonl » et on clique sur ce composant qui represente I’impression et dans son inspecteur d’objet 
on choisit dans sa propriete « popupmenu » I’element « popupmenul ». 

Ensuite : pour programmer le composant popupmenul on double clique sur ce dernier et on double clique sur 
I’element « previsualiser » et on ecrit dans sa procedure : 

fiche_etat_etudiant.quickrep1 .preview ; 

Ensuit : on tape FI 2 pour retourner a la fiche et on double clique sur le composant « popupmenul » et on 
double clique sur I’element « imprimer » et on ecrit dans sa procedure : 

fiche_etat_etudiant.quickrep1 .print ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 


confirmation de la liaison entre la fiche_etudiant et la fiche_etat_etudiant et on doit cliquer sur |Oui| pour 
chaque demande de confirmation. 


- 44 - 


Ann rend re Delphi ; 7 par /’exemp/e 
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TP3 : UNE FICHE MAITRE-DETAIL ENTRE DEUX TABLES 


.^3 1 1 ■ .« 1 1 f‘ detail 



Mi M ► 

M + “ ^ - 

X C“ 







Code_grp 

D esi gnat ion 

Specialite 

1 





yv 


1 

G1 

Mathes 



► 

2 

G2 

Lettres 


V 


3 

G3 

Sciences 








Code_etud 

Nom 

Prenorn 

Date_nais 

Lieu_nais 

Code_grp | 


► 

1 

Amine 

Mourad 

1 2/01 /I 982 

Setif 

2 



2 

Redha 

Mohammed 

05/08/1 981 

El Eulma 

2 




3 

Souhil 

T arek 

24/1 2/1 980 

Ain Kebira 

2 













Pour la creation de cette fiche on procede comme suite : 

1 . dans le menu Delphi on choisit : fichier ■=> nouveau 

2. dans la boite de dialogue qui s’affiche on choisit I’onglet « affaires » et dans ce dernier on choisit 


I’icone « expert fiche base de donnees » et clique sur le bouton Ok 


3. dans I’assistant qui s’affiche on choisit dans la premiere etapele type de la fiche : 


© Creer une fiche maTtre/detail, ensuite clique sur le bouton |Suite 


4. choisir dans la liste « lecteur ou nom d’alias » I’alias de notre table maitre a afficher (exemple : 
dbdemos). 


5. On choisit la table dans la liste (exemple : groupe), ensuite clique sur le bouton |Suite 

6. On clique sur le bouton 


» 


pour faire passer tous les champs a droite (pour les afficher tous) et 


clique sur Suite 


7. Clique sur I’option : « ® dans une grille » et clique sur Suite 


8. Choisir dans la liste « lecteur ou nom d’alias >> I’alias de notre table detail a afficher (exemple : 
dbdemos). 


9. On choisit la table dans la liste (exemple : etudiant), ensuite clique sur le bouton |Suite 

10. On clique sur le bouton 


» 


pour faire passer tous les champs a droite (pour les afficher tous) et 


clique sur Suite 


1 1 . Clique sur I’option : « ® dans une grille » et clique sur Suite 


12. Ensuite : on choisit dans la liste en haut I’index disponible « c6 >> 

13. Ensuite : on choisit a gauche le champ « code_grp » et a droite le champ « code_grp >>. 


14. Ensuite : clique sur le bouton |ajouter| ensuite sur le bouton |Suite 


15. On fin sur le bouton Terminer 


TP4 : TP EXEMPLAIRE 


1- choisir dans le menu Delphi : fichier ■=> nouvelle application. 

(Si Delphi demande I’enregistrement de I’ancienne application on clique sur |Non| ) 

2- supprimer la fiche vierge proposee par defaut dans cette nouvelle application par 


Le menu Delphi : projet ■=> supprimer une fiche, et clique sur ok 


» 


3- preparer une fiche BD simple en utilisant les etapes du TP2 et nommer cette fiche « fichejiste 

4- preparer une fiche d’impression en utilisant les etapes du TP1 pour imprimer la meme table choisie dans 
la fichejiste et nommer cette fiche « fiche_etatjiste ». 

5- inserer en haut de la fichejiste deux boutons de la palette standard. 

Button 1 > Caption Previsualiser. 

Button2 > Caption > Imprimer. 

6- double clique sur le buttonl et ecrire dans sa procedure : 

fiche_etatjiste.quickrep1 .preview ; 

7- double clique sur le button2 et ecrire dans sa procedure : 

fiche_etatjiste.quickrep1 .print ; 

8- compiler par Ctrl + F9 et clique sur |Ouj] pour faire la liaison entre les deux fiches et lancer I’execution par 

F9. 
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Ann rend re Delphi7 par IJexemple 


duwiire 2 Logiciel Gestion Comnerciale 


4- PREPARATION DU LOGICIEL : 

1- creer dans le lecteur C du disque dur un nouveau dossier nomme : commerce (pour Stocker le logiciel). 

2- creer dans le dossier commerce 2 autres dossiers nommes : base (pour Stocker la BD) et source (pour Stocker le 
code source) 

3- lancer le BDE de Delphi par : (le menu Delphi) outils ■=> module base de donnees. 

4- creer un nouveau alias pour notre logiciel par : (le menu BDE) outils ■=> gestionnaire d’alias 
Ensuite : cliquer sur I’option : « © affiche r seulement les alias publics » 

Ensuite : cliquer sur le bouton : Inouveau 

Ensuite : ecrire dans : Alias de la base : commerce 

Chemin d’acces : c:\commerce\base 


Ensuite cliquer sur Ok 


En fin cliquer sur Oui pour que cet alias soit un alias public. 


Remarque 

On peut fixer cet alias comme alias de travail par defaut au cour du developpement de notre logiciel et cela par le 
choix de cet alias dans le menu du module base de donnees : fichier ^repertoire du travail. 

(Le BDE se pointera automatiquement sur cet alias a chaque acces au module BD) 


5- creer dans cet alias les tables suivantes, n’oubliez pas de les enregistrer dans I’alias « commerce 


» 


Table: client 



Table : facture_achat 

Champ 

Type 

Taille 

index 


Champ 

Type 

Taille 

index 

Code_c 

i 


* 


Numero_a 

i 


* 

Nom_c 

A 

20 



Date_achat 

d 



Prenom_c 

A 

20 



Reglement_a 

A 

10 


Adresse_c 

A 

30 



code_four 

i 



Telephone_c 

A 

15 



Table : facture_vente 

RC_c 

A 

15 



Champ 

Type 

Taille 

index 

AI_c 

A 

15 



Numero_v 

i 


* 

IF_c 

A 

15 



Date vente 

d 



Table: fournisseur 


Reglement_v 

A 

10 


Champ 

Type 

Taille 

index 


code_cli 

i 



Code_f 

i 


* 


Table : ligne_vente 



Nom f 

A 

20 







Prenom f 

A 

20 



Champ 

Type 

Taille 

Index 

Adresse f 

A 

30 



Num_vente 

i 


* 

Telephone_f 

A 

15 



Ref_prod 

i 


* 

RC f 

A 

15 



Qte_vente 

n 



AI f 

A 

15 



Table : ligne_achat 

IF_f 

A 

15 



Champ 

Type 

Taille 

index 




Num_achat 

i 


* 




Ref_prod 

i 


* 




Qte_achat 

n 




Table : produit 


Champ 


Reference 

Designation 

Qte_stock 

Prix_achat 

Prix_vente 

Tva 


Type 


1 

A 

n 

$ 

$ 

n 


Taille 


20 


index 


* 


Table : inventaire 


Champ 


Numero_i 

Date_inventaire 

duree 

responsable 


Type 


1 

d 

A 

A 


Taille 


10 

20 


Index 


* 


Table : ligne_inventaire 


Champ 


Num_inv 

Ref_prod 

Qte_theorique 

Qte_reelle 


Type 


1 

i 

n 

n 


Taille 


Index 


* 

* 


Table protection 


Champ 


Password 


Type 


A 


Taille 


20 


index 


* 


f- MCD CORRESPOND ANT (c’est seulement une partie du MCD reel et complet de la gestion commerciale) : 
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Ann rend re Delphi7 par IJexemple 


duwiire 2 Logiciel Gestion Comnerciale 


i FICHE MENU 



1- Retournez a I’environnement Delphi et choisir dans le menu : Fichier ■=> nouvelle application. 

Ensuite : inserer dans la fiche de ce nouveau projet (ce nouveau logiciel) un composant « mainmenul >> 
Ensuite : double clique sur ce composant et inserer le menu principal suivant : 


Fichier 

Edition 

Consultation 

Statistiques 

Outils 

? 

Produit 

Facture achat 

Achats 

Reglements 

Inventaire 

Aide 

Client 

Facture vente 

Ventes 


Archivage 

A propos 

Fournisseur 




Protection 






Cloture 


Quitter 







❖ 


Chaque fiche (ainsi que son unite) dans le logiciel doit etre nominee par un nom significatif. pour notre fiche 
actuelle (le menu general du projet) on precede comme suite : 

Cliquer sur cette fiche (eviter le composant mainmenul) et dans son inspecteur d’objet ecrire dans la propriete : 
name ■=> fiche_menu. 

Cliquer dans le menu Delphi sur : fichier ■=> enregistrer sous, et dans le dossier « c:\commerce\source » on nomme 
I’unite : « menu ». 

Cliquer dans le menu Delphi sur : fichier ■=> enregistrer le projet sous, et nommer le projet : commerce (toujours dans 
« c:\commerce\source ») 

2- inserer un composant ToolBarl (palette Win32). 

Ensuite : clique droit sur ce composant et choisir « nouveau bouton » ou « nouveau separateur » 

Ensuite : repeter le clic droit pour inserer 15 boutons qui represented les elements du menu principal du logiciel; 

Et 6 separateurs pour les grands elements du menu (fichier, edition, consultation, ...) 

Ensuite : inserer un composant imagelistl (palette Win32) 

Ensuite : double clique sur ce composant et clique sur le bouton |Ajouter| pour choisir la gamme des images de notre 
logiciel dans le chemin : « C:\program files\fichiers communs\borland shared\images\buttons » 


Ensuite : apres le choix de 15 images adequates aux 15 boutons on clique sur Ok 


Ensuite : clique sur le « mainmenul » et dans son inspecteur d’objet choisir dans la propriete : 

Images ■=> imagelistl 

Ensuite : double clique sur le « mainmenul >> et chaque element de ce menu sera lie a une image adequate par sa 
propriete : « imageindex >> 

Enfin : fermer la petite fenetre du menu et clique sur le composant « toolbarl » et pour affecter des images a ses 
boutons choisir dans sa propriete : Images ■=> imagelistl . 

(Chaque bouton du «toolbar1» peut avoir une image adequate par le choix de cette image dans la propriete 
« imageindex » de ce bouton). 

3- pour expliquer le role de chaque bouton on clique sur ce dernier on ecrit dans sa propriete : « Hint >> I’explication 
voulue, ensuite et pour voir cette explication on choisit dans la propriete : showHint ■=> true 
Programmation du sous menu : Quitter 

Double clique sur le composant « mainmenul » et double clique sur son element quitter (du sous menu fichier) 

Ensuite : ecrire dans la procedure : close; 

Ensuite : dans la fiche_menu, double clique a droite de son evenement «onclosequery» et ecrire dans sa procedure : 

if messagedlgfvoulez vous quitter le logiciel?', mtconfirmation,[mbyes,mbno],0)=mryes then 
begin 

canclose:=true; 

application.terminate; 

end 

else 

canclose:=false; 


- 48 - 



Ann rend re Delphi7 gar IJexmgile 


Qm^itre 2 Logiciel Gestion Comnercmle 


Resultat: 


Cette technique assure I’affichage de la fenetre de confirmation de sortie du logiciel pour n’importe quel type de 
tentative de fermeture du logiciel : 

le menu : fichier ■=> quitter. 

Par clavier en utilisant les touches : Alt + F4 

En cliquant sur la case termer 0 en haut et a droite de la fenetre. 


4- Pour que la fiche menu occupe tous I’espace de I’ecran lors du lancement de 1‘execution du logiciel : 

Clique sur cette fiche_menu (eviter de cliquer sur I’un de ses composants). 
Choisir dans sa propriety : « Window state ■=> wsmaximized » 

5- Enregistrer notre travail par le menu Delphi : fichier ■=> tout enregistrer. 


Remarques : 

1- Pour Her chaque bouton de la barre d’outils « Toolbarl » a une fiche on clique sur ce bouton et on choisit dans son 
evenement « onclick » la procedure qui appelle la fiche correspondante (faites ce travail a la fin du logiciel). 

2- Lorsqu’on lance I’execution de notre logiciel la fiche menu apparait automatiquement la premiere puisque elle est 
la fiche principale dans notre logiciel, mais si cette fiche n’a pas ete lancee la premiere done elle n’est pas consideree 
comme fiche principale et on doit corriger cette faute par le choix dans le menu Delphi : projet ■=> options, et on choisit 


dans la liste : « Fiche principale » ■=> « fiche_menu » et clique sur |Ok. 

3- dans le menu principal : 

s La partie fichier: sert a representer les tables permanentes (produit, clients, fournisseur) qui se ressemble 
cote prog ram mation. 

s Une table permanente est une table qui lors de I’archivage de notre BD pour le passage a une nouvelle 
annee d’activite, ses donnees ne seront pas vides (conservent les memes donnees pour le nouvel an) 

S La partie edition : sert a representer les mouvements entre les tables permanentes. (bien sur les mouvements 
sont represents sous formes de tables de mouvement (facture_achat et ligne_achat par exempt) 

Une table mouvement apres son archivage (apres copiage de son contenu dans un autre emplacement memoire 
comme reserve) doit etre videe pour commencer une nouvelle annee d’activite. 


L’image de I’arriere plan : 

1- inserer un composant « imagel » de la palette « supplem ent ». 

2- dans sa propriety picture on clique sur le bouton |Charger| et chercher I’image voulue. 

(Exemple du chemin de I’image : C:\Program Files\Fichiers communs\Borland Shared\lmages\Splash\256Color) 


3- Enfin clique sur Ouvrir ensuite sur Ok 


4- pour que I’image occupe toute la surface de son cadre on modifie sa propriety : Autosize ■=> true. 

5- pour que I’image s’agrandie si elle a une taille plus petite que la surface de son cadre on modifie sa propriete 
Stretch ■=> true. Aussi modifier sa propriete : align ■=> alClient. 


Les abreviations du domaine commercial : 
HT : prix Hors Taxe. 

TVA : la Taxe sur la Valeur Ajoute. 

TTC : le montant Tous Taxes Comprise. 
RC : le numero du Registre de Commerce 
Al : le numero de I’Article d’lmposition 
IF : le numero de [’Identification Fiscale. 
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4- LA FICHE PRODUIT 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom de la fiche : « fiche_produit ». 
Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\commerce\source » nommer 
I’unite : « produit » 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

Commerce 

Tablename 

Produit 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablel 

Controlebd 

Dbgridl 

Datasource 

Datasourcel 

Supplement 

Speedbuttonl 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 

BDE 

Queryl 

databasename 

Commerce 

Sql 

Select sum(qte_stock*prix_achat)as montant_stock from produit 

Active 

True 

Standard 

Label 1 

Caption 

Filtrage 

Editl 

Text 



3- Double clique sur le queryl et clique droit sur la petite fenetre et clique sur «ajouter tous les champs». 

Ensuite : clique sur le champ montant_stock et glisser ce dernier vers le bas de notre fiche. 

4- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure (onchange): 

if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[designation]=‘ + #39 + editl .text + **’ + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 

5- On tape la touche FI 2 (retour a la fiche), et pour faire le trie de la table produit : clique sur le composant 
dbg rid 1. 

Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements » 

Ensuite : on double clique a droite de I’evenement « ontitleclick >> et on introduit le code source suivant : 

// Une table est triee automatiquement selon son index actuel (primaire ou secondaire) 

If column. index = 0 then 

Tablel. indexname :=’cT ; 

If column. index = 1 then 
Tablel. indexname :=’c2’ ; 

If column. index = 2 then 
Tablel. indexname :=’c3’ ; 

If column. index = 3 then 
Tablel. indexname :=’c4’ ; 

If column. index = 4 then 
Tablel. indexname :=’c5’ ; 

If column. index = 5 then 
Tablel. indexname :=’c6’ ; 


- 50 - 


Apprendre Delphi7 par Vexemple 


Chapitre 2 : Losiciel Gestion Commerciale 


Remarque importante : 

Le trie et le filtrage dans une table ne reussissent que si on a defini des index secondaires sur chaque champ trie ou 
filtre. 


Pour inserer des index secondaires dans les champs de la table produit il taut que cette table ne soit pas en cours 
d’utilisation done sa propriety : active ■=> false. 

Aussi la requete queryl doit etre : active ■=> false, puisque elle aussi utilise la table produit. 

Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils ■=> module base de donnees. 

Ensuite : on ouvre la table par : (le menu) fichier ■=> ouvrir ■=> table et on choisit I’alias « commerce » et la 
table « produit ». 

Ensuite : on clique dans le menu du BDE sur table ■=> restructurer. 

Ensuite : on choisit dans la liste des choix « proprietes d e la tab le » I’option « index secondaires » 

Ensuite : on clique pour chaque champ sur le bouton |Definir| et on fait passer ce champ a droite, on clique sur le 
bouton [OK] et on propose un nom symbolique a cet index secondaire (cl pour le champ reference, c2 pour le champ 
designation,... etc.) 

Ensuite : on clique sur le bouton |enregistrer| et on retourne a I’environnement Delphi. 

Enfin : on reactive les deux composants tablel et queryl par leurs proprietes : active ■=> true. 

6- on renforce cette fiche par des champs calcules pour chaque enregistrement de la table produit et cela 
comme suite : 


On double clique sur le composant tablel 

Ensuite : on clique droit sur la petite fenetre et on clique sur « ajouter tous les champs ». 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « total » et on choisit le type du champ : « currency » et on clique sur [ok. 

Ensuite : on clique sur le composant tablel et dans son inspecteur d’objet on clique sur I’ongle « evenements ». 

Ensuite : on double clique a droite de I’evenement « oncalcfields » et on ecrit dans la procedure : 

tablel .fieldbyname(‘total’).ascurrency := tablel .fieldbyname(‘qte_stock’).asfloat * 

tablel .fieldbyname(‘prix_achat’).ascurrency ; 

queryl .close; 

queryl .active:=true; 

// Pour que la requete prend en consideration les dernieres donnees saisies (rafraTchir les calculs de la requete). 

7- on va maintenant preparer I’impression de la liste des produits comme suite : 

On choisit dans le menu Delphi : fichier ■=> nouveau, et on clique dans la fenetre qui s’affiche sur I’ongle « affaires ». 
Ensuite : on clique sur I’element : « expert quick report >> et on clique sur |ok. 

Ensuite : on clique sur le bouton llancer I’expertl et on choisit I’alias « commerce » et la table « produit ». 

Ensuite : c lique sur le bouton [>>] qui fait passer tous les champs a droite pour les imprimer tous et clique sur 
Terminer . 

Ensuite : on clique sur cette nouvelle fiche en evitant le clic sur le composant « quickrepl >> et dans sa propriety 
« name » on donne le nom de cette fiche qui sera « fiche_etat_produit ». 

Ensuite : on clique sur : (menu Delphi) fichier oenregistrer, et dans le dossier : « c:\commerce\source >> on nomme 
I’unite : etat_produit. 

8- on tape Shift + FI 2 pour afficher la liste des fiches du logiciel et on choisit la fiche « fiche_produit » et on 
clique sur |ok. 

Ensuite : et pour une impression bien presentee des produits on insere un composant popupmenul (palette 
standard). 

Ensuite : on double clique sur ce composant et on introduit les deux elements «previsualiser» et «imprimer» dans 
leurs proprietes «caption». 

Ensuite : on ferme la petite fenetre du « popupmenul >> et on clique sur le composant « speedbuttonl >> qui 
represente I’impression et dans son inspecteur d’objet on choisit dans sa propriety « popupmenu >> I’element 
« popupmenul ». 

Ensuite : pour programmer le composant popupmenul on double clique sur ce dernier et on double clique sur 
I’element « previsualiser >> et on ecrit dans sa procedure : fiche_etat_produit.quickrep1 .preview ; 

Ensuit : on tape F12 pour retourner a la fiche et on double clique sur le composant « popupmenul >> et on double 
clique sur I’element « imprimer » et on ecrit dans sa procedure : fiche_etat_produit.quickrep1. print ; 

9- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 

On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu >> et on clique sur |Ok . 

Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element produit (du sous menu 
fichier) 

Ensuite : on ecrit dans la procedure : fiche_produit.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_produit et on doit cliquer sur |ouj] pour cette demande de 
confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_produit et la fiche_etat_produit et 
on doit cliquer sur |ouj| aussi pour cette demande de confirmation. 

Remarques : 

1- Pour que la fiche produit se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 

On tape : Shift + FI 2 et on clique sur la « fiche_produit » et on clique sur |Ok. 
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On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

Remarque importante : 

Dans le cas des champs de type monetaire (prix achat, prixvente, total ...), on peut modifier le symbole monetaire 
(La monais : Da, $, £, € ....) et cela en suivant les etapes : 

On lance la fenetre « panneau de configuration » de Windows par : 

Le bouton « demarrer » ■=> parametre ■=> « panneau de configuration >> 

dans cette fenetre on double clique sur : « options regionales et linguistiques » 

clique sur le bouton « personnaliser >> 

clique en haut sur la page : « symbole monetaire » 

choisir ou ecrire dans la liste « symbole monetaire >> le symbole voulu (generalement Da) 

(Si le symbole Da ne figure pas dans la liste, done il faut I’ecrire) 


Enfin clique sur PW ensuite Ok 


❖ 


Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 

4- LA FICHE CLIENT 


<F fiche_client 


[Filtr age 


imprimer 


Jl Farmer 



Code 

N orn 

Prenorn 

Adresse 

T elephone 

RC 

Al 

IF 

A 

► 


1 

Lamine 

Sami 

Setif 

036 99 99 99 

AB 002 555 

MP 014 258 

HJ 258 744 




2 

Mohammedi 

Sara 

El Eulma 

036 88 88 88 

NB 120 256 

TR 258 369 

DE 325 698 




3 

Dris 

Rafik 

Ain Kebira 

036 77 77 77 

Hk 363 258 

RE 654 987 

SE 874 956 




4 

Zidani 

Amine 

Ain Arnet 

036 22 22 22 

RS 253 025 

MP 789 654 

CD 256 321 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom : « fiche_client ». 

Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\commerce\source » nommer 
I’unite : « client >> 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

Commerce 

Tablename 

client 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablel 

Controlebd 

Dbgridl 

Datasource 

Datasourcel 

Supplement 

Speedbuttonl 

Caption 

Imprimer 

Glyph 

C:\Program FilesVFichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 

Standard 

Label 1 

Caption 

Filtrage 

Editl 

text 



3- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure (onchange): 

if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[nom_c]=‘ + #39 + editl .text + **’ + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 
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4- On tape la touche F12, et pour faire le trie de la table client : clique sur le composant dbgridl . 
Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements » 

Ensuite : on double clique a droite de I’evenement « ontitleclick » et on introduit le code source suivant 

If column. index = 0 then 
Tablel.indexname :=’c1’ ; 

If column. index = 1 then 
Tablel.indexname :=’c2’ ; 

If column. index = 2 then 
Tablel.indexname :=’c3’ ; 

If column. index = 3 then 
Tablel.indexname :=’c4’ ; 

If column. index = 4 then 
Tablel.indexname :=’c5’ ; 

If column. index = 5 then 


Tablel.indexname :=’c6’ ; 

Remarque: 

Pour inserer des index secondaires dans les champs de la table client il taut que cette table ne soit pas en cours 
d’utilisation done sa propriety : active ■=> false. 

Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils ■=> module base de donnees. 

Ensuite : on ouvre la table par : (le menu) fichier ■=> ouvrir ■=> table et on choisit I’alias « commerce » et la 
table « client ». 


Ensuite : on clique dans le menu du BDE sur table orestructurer. 

Ensuite : on choisit dans la liste des choix « proprietes d e la tab le >> I’option « index secondaires >> 

Ensuite : on clique pour chaque champ sur le bouton |Definir] et on fait passer ce champ a droite, on clique sur le 
bouton [OK] et on propose un nom symbolique a cet index secondaire (cl pour le champ code_c, c2 pour le champ 
nom_c,...etc.) 

Ensuite : on clique sur le bouton jenregistrer] et on retourne a I’environnement Delphi. 

Enfin : on reactive le composant tabled par sa propriety : active ■=> true. 

5- On doit maintenant preparer I’impression de la liste des clients comme suite : 

On choisit dans le menu Delphi : fichier ■=> nouveau, et on clique dans la fenetre qui s’affiche sur I’ongle « affaires ». 
Ensuite : on clique sur I’element : « expert quick report » et on clique sur « ok >>. 

Ensuite : on clique sur le bouton lancer I’expertl , et on choisit I’alias « commerce » et la table « client ». 

Ensuite : on clique sur le bouton [>>] qui fait passer tous les champs a droite et on clique sur |Terminer . 

Ensuite : on clique sur cette nouvelle fiche en evitant le clic sur le composant « quickrepl »et dans sa propriety 
« name » on donne le nom « fiche etat client » a cette fiche. 


Ensuite : on clique sur : (menu Delphi) fichier^enregistrer, et dans le dossier : c:\commerce\source on nomme 
I’unite : etat client. 


6- On tape Shift + FI 2 pour afficher la liste des fiches et on choisit la fiche « fiche client » et on clique sur |Ok. 

Ensuite : et pour une impression bien presentee des clients on insere un composant popupmenu (palette standard). 
Ensuite : on double clique sur ce composant et on introduit les deux elements «previsualiser» et «imprimer» dans 
leurs proprietes «caption». 

Ensuite : on ferme la petite fenetre du « popupmenu » et on clique sur le composant « speedbuttonl » qui represente 

I’impression et dans son inspecteur d’objet on choisit dans sa propriete « popupmenu » I’element « popupmenul ». 

Ensuite : pour programmer le composant popupmenul on double clique sur ce dernier et on double clique sur 
I’element « previsualiser » et on ecrit dans sa procedure : fiche_etat_client.quickrep1 .preview ; 

Ensuit : on tape FI 2 pour retourner a la fiche et on double clique sur le composant « popupmenul » et on double 
clique sur I’element « imprimer » et on ecrit dans sa procedure : fiche_etat_client.quickrep1. print ; 

7- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 

On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur [Ok . 

Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element client (du sous menu 
fichier) 

Ensuite : on ecrit dans la procedure : fiche_client.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_client et on doit cliquer sur 0 pour cette demande de 
confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_client et la fiche_etat_client et on 
doit cliquer sur |ouj] aussi pour cette demande de confirmation. 

Remarques : 

1- Pour que la fiche client se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 

On tape : Shift + FI 2 et on clique sur la « fiche_client » et on clique sur [Ok. 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

❖ Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 
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4- LA FICHE FOURNISSEUR 



l- Choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d'objet de la fiche on ecrit dans la propriete « name » le nom : « fiche_fournisseur ». 

Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\commerce\source » nommer 
I’unite : « fournisseur » 

2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

Commerce 

Tablename 

fournisseur 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablel 

Controlebd 

Dbgridl 

Datasource 

Datasourcel 

Supplement 

Speedbuttonl 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 

Standard 

Label 1 

Caption 

Filtrage 

Editl 

text 



3- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure 
(onchange): 


if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[nom_f]=‘ + #39 + editl .text + **’ + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 

4- On tape la touche FI 2 (retour a la fiche), et pour faire le trie de la table fournisseur : clique sur le 
composant dbgridl. 

Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements >> 

Ensuite : on double clique a droite de I’evenement « ontitleclick » et on introduit le code source 
suivant (Une table est triee automatiquement selon sont index actuel (primaire ou secondaire) et on suppose que 
les index secondaires existes deja pour chaque champ) : 

If column.index = 0 then 
Tablel. indexname :=’c1’ ; 

If column.index = 1 then 
Tablel. indexname :=’c2’ ; 

If column.index = 2 then 
Tablel. indexname :=’c3’ ; 

If column.index = 3 then 
Tablel. indexname :=’c4’ ; 

If column.index = 4 then 
Tablel. indexname :=’c5’ ; 

If column.index = 5 then 
Tablel. indexname :=’c6’ ; 
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Pour inserer des index secondaires dans les champs de la table fournisseur il taut que cette table ne soit pas en 
cours d’utilisation done sa propriete : active ■=> false. 

Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils ■=> module base de donnees. 

Ensuite : on ouvre la table par : (le menu) fichier ■=> ouvrir ■=> table et on choisit I’alias « commerce » et la 
table « fournisseur». 


Ensuite : on clique dans le menu du BDE sur table orestructurer. 

Ensuite : on choisit dans la liste des choix « proprietes d e la tab le » I’option « index secondaires >> 

Ensuite : on clique pour chaque champ sur le bouton |Definir| et on fait passer ce champ a droite, on clique sur le 
bouton [OK] et on propose un nom symbolique a cet index secondaire (cl pour le champ code_f, c2 pour le champ 
nom_f,...etc.) 

Ensuite : on clique sur le bouton |enregistrer[ et on retourne a I’environnement Delphi. 

Enfin : on reactive le composant tablet par sa propriete : active ■=> true. 


5- On doit maintenant preparer I’impression de la liste des fournisseurs comme suite : 

On choisit dans le menu Delphi : fichier ■=> nouveau, et on clique dans la fenetre qui s’affiche sur I’ongle « affaires ». 
Ensuite : on clique sur I’element : « expert quick report » et on clique sur |Ok . 

Ensuite : on clique sur le bouton lancer I’expertl , et on choisit I’alias « commerce » et la table « fourniss eur >>. 

Ensuite : on clique sur le bouton [>>] qui fait passer tous les champs a droite et on clique sur |Terminer . 

Ensuite : on clique sur cette nouvelle fiche en evitant le clic sur le composant « quickrepl >>et dans sa propriete 
« name » on donne le nom « fiche_etat_fournisseur >> a cette fiche. 

Ensuite : on clique sur :(menu Delphi) fichier oenregistrer, et dans le dossier : c:\commerce\source on nomme 
I’unite : etat_fournisseur. 

6- on tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche « fiche_fournisseur » et on 
clique sur |Ok . 

Ensuite : et pour une impression bien presentee des fournisseurs on insere un composant popupmenu (palette 
standard). 

Ensuite : on double clique sur ce composant et on introduit les deux elements «previsualiser» et «imprimer» dans 
leurs proprietes «caption». 

Ensuite : on ferme la petite fenetre du « popupmenu » et on clique sur le composant « speedbuttonl » qui represente 
I’impression et dans son inspecteur d’objet on choisit dans sa propriete « popupmenu >> I’element « popupmenul ». 
Ensuite : pour programmer le composant popupmenul on double clique sur ce dernier et on double clique sur 
I’element « previsualiser >> et on ecrit dans sa procedure : fiche_etat_fournisseur.quickrep1 .preview ; 

Ensuit : on tape F12 pour retourner a la fiche et on double clique sur le composant « popupmenul » et on double 
clique sur I’element « imprimer » et on ecrit dans sa procedure : fiche_etat_fournisseur.quickrep1 .print ; 

7- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 

On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur |Ok. 

Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element fournisseur (du sous 
menu fichier) 

Ensuite : on ecrit dans la procedure : fiche_fournisseur.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_fournisseur et on doit cliquer sur |oui] pour cette demande 
de confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_fournisseur et la 
fiche_etat_fournisseur et on doit cliquer sur H aussi pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche fournisseur se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 

On tape : Shift + FI 2 et on clique sur la « fiche_fournisseur » et on clique sur |Ok. 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

❖ Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 
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i- FICHE FACTURE ACHAT 


l T? fic he facture "ac li^it 



I ~~ I I *" I I ~ I I ^ I I ^ I iSg imp, inner | JL F 0 ,m 0 , | 


Numero Date achat Reglement Code four 

|~Tj |l 2/06/2005 | Credit ^ | | 2 — | 



Fi ef prod 

Qte achat 

■d esig n . 3 1 i 0 n 

prix 

6,-a 

tot-31 | 

► 

i 

1 s 

O rdinateur 

23 000.00 Da 

1 4 

41 4 000.00 Da 


3 

40 

S canneur 

4 600.00 Da 

1 4 

1 64 000.00 Da 


total ht total tva total ttc 

598 000.00 Da 8 3^2 000.00 Da 8 970 000.00 Da 


Conversion 


Huit Million Meuf Cent Soixante Din Mille dinars: et e r o CTS 


1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom : « fiche_facture_achat». 
Ensuite : choisir dans le menu Delphi:fichien=>enregistrer, et dans le dossier « c:\commerce\source » nommer I’unite: 
«facture_achat» 

2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

Commerce 

Tablename 

Facture_achat 

Active 

True 

Table2 

Databasename 

Commerce 

Tablename 

Fournisseur 

Active 

True 

Table3 

Databasename 

Commerce 

Tablename 

ligne_achat 

Active 

True 

Table4 

Databasename 

Commerce 

Tablename 

Produit 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablel 

Datasource2 

Dataset 

Table2 

Datasource3 

Dataset 

Table3 

controlebd 

Dbgridl 

Datasource 

Datasource3 

Supplement 

Speedbuttonl 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 

BDE 

Query 1 

databasename 

Commerce 

Sql 

Select 

sum(qte_achat*prix_achat)as HT,Sum(qte_achat*prix_achat*tva)as total_tva, 
Sum (qte_achat*prix_achat*(l+tva)) as TTC from produit, ligne_achat 
Where (reference = ref_prod) and (num_achat = :p) 

Params 

Clique sur « p » et choisir dans la propriete datatype : « ftinteger » 

Active 

True 

controlebd 

dbnavigator 

datasource 

Datasourcel 


3- Double clique sur le composant tablel . 

Ensuite : clique droit sur la petite fenetre et clique dans le menu contextuel sur: «ajouter tous les champs». 

Ensuite : glisser les champs de la table facture_achat un par vers le haut de la fiche, a la fin fermer la petite fenetre. 
Ensuite : supprimer le composant « dbedit3 >> qui represente le champ « reglement » et le remplacer par le 
composant « dbcomboboxl » de la palette « controlebd » et modifier les proprietes de ce « dbcomboboxl » comme 
suite : 

Datasource ■=> datasourcel 
Datafield ■=> reglement 

Items ■=> clique sur le petit bouton ecrire : cheque, espece, credit (chaque element dans une ligne) ■=> fermer la 
fenetre. 

Ensuite : supprimer le composant « dbedit4 >> qui represente le champ « code_four >> et le remplacer par le 
composant « dblookupcomboboxl >> (palette « controlebd ») et modifier les proprietes de ce « dblookupcomboboxl >> 
comme suite : 

Datasource ■=> datasourcel Datafield ■=> code_four Listsource ■=> datasource2 

Listfield 1 > code_f; nom_f Keyfield ■=> code_f 
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4 - Pour mettre le curseur du clavier automatiquement dans le « dbeditl » pour faciliter la saisie du numero de la 
facture on clique sur le composant « tablel » et dans son inspecteur d’objet double clique a droite de son 
evenement «afterinsert» on ecrit dans sa procedure : 

dbeditl .setfocus ; 

ensuite on peut controler la manipulation du clavier par : 
clique sur le composant dbeditl . 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk_return then 
Dbedit2.setfocus ; 

tapez F12 et clique sur le composant dbedit2. 

Double clique sur son evenement « OnKeyDown >> et ecrire dans sa procedure : 

If key = vk_return then 
DbComboboxI .setfocus ; 

tapez FI 2 et clique sur le composant dbcomboboxl . 

Double clique sur son evenement « OnKeyDown >> et ecrire dans sa procedure : 

If key = vk_return then 
DblookupComboboxI .setfocus ; 

5- Pour masquer le format d’affichage de la « date_achat » : 

- on double clique sur le composant « tablel » 

- dans la petite fenetre on clique sur le champ « date_achat >> 

- on clique sur le petit bouton Q de sa propriety « editmask » 

- on clique dans la liste a droite de la fenetre sur I’element « date longuel » et on clique sur 

- on ferme la petite fenetre et la date_achat sera masquee par le format « » 

6- pour faire une liaison maitre-detail entre la table maTtre« facture_achat », et la table detaille « ligne_achat » : 
On clique sur le composant table3 « ligne_achat », et choisir dans sa propriety : mastersource -> datasourcel . 

Ensuite : dans sa propriety « masterfield » on clique sur petit bouton. 

Ensuite : on choisit dans la liste a gauche le champ « numachat » et a droite le champ « numero_a ». 

Ensuite : clique sur le bouton « ajouter » ensuite sur le bouton |Ok. 

7- on peut renforcer cette fenetre par les champs calcules comme suite : 

On double clique sur le composant table3 « ligne_achat ». 

Ensuite : on clique droit sur la petite fenetre et on clique sur « ajouter tous les champs ». 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « designation » et on choisit le type du champ : « string » et on clique sur |Ok. 
Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « prix achat » et on choisit le type du champ : « currency » et on clique sur |Ok . 
Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « tva >> et on choisit le type du champ : « float >> et on clique sur |Ok . 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « total » et on choisit le type du champ : « currency » et on clique sur |Ok. 

A la fin : on ferme la petite fenetre. 

Ensuite : on clique sur le composant « table3 >> (ligne_achat) et dans son inspecteur d’objet on clique sur I’ongle 
evenement 

Ensuite : on double clique a droite de I’evenement « oncalcfield >> et on ecrit dans la procedure : 

Table4.open ; 

Table4.setkey ; // preparation de la recherche du produit qui a la reference tapee 
Table4.fieldbyname(‘reference’).asinteger := Table3.fieldbyname(‘ref_prod’).asinteger ; 

If table4.gotokey then // si le produit existe, on introduit sa designation, prix, tva, et on calcul le total 
Begin 

Table3.fieldbyname(‘designation’).asstring:= Table4.fieldbyname(‘designation’).asstring; 
Table3.fieldbyname(‘prix_achat’).ascurrency:= Table4.fieldbyname(‘prix_achat’).ascurrency ; 
Table3.fieldbyname(‘tva’).asfloat:= Table4.fieldbyname(‘tva’).asfloat; 
Table3.fieldbyname(‘total’).ascurrency:=Table3.fieldbyname(‘qte_achat’).asfloat* 
Table4.fieldbyname(‘prix_achat’).ascurrency; 

End; 

// On profite I’occasion pour passer une valeur au parametre a notre requete « queryl » 

Queryl .close; 

Queryl .parambyname(‘p’).asinteger :=table1 .fieldbyname(‘numero_a’).asinteger ; 

Queryl .active:=true; 

8- on tape FI 2 pour retourner a la fiche et on double clique sur le composant « queryl ». 

Ensuite : clique doit sur la petite fenetre et clique dans le menu contextuel sur : « ajouter tous les champs ». 

Ensuite : glisser les champs de la requete facture un par un vers le bas de la fiche, a la fin fermer la petite fenetre. 

9- pour que la facture affiche son montant ttc en lettres on procede comme suite : 
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On insere un composant « Buttonl » (palette standard) et dans sa propriety : « caption » on ecrit : conversion. 

Ensuite : on insere un composant Label (palette standard) et supprimer le contenu de sa propriety « caption » 

Ensuite : on double clique sur le composant « Boutonl » et on ecrit dans sa procedure : (Supprimer son begin et end 
et colter tous le code source suivant) 


var chainel ,chaine:string; 
p,nombre,q,DEC:integer; 

N,n1 :real; 

procedure decimale(var p3:integer); 
begin 

if p3=10 then chaine:=chaine+ ' Dix'; 
if p3=1 1 then chaine:=chaine+ ' Onze'; 
if p3=12 then chaine:=chaine+ ' Douze'; 
if p3=13 then chaine:=chaine+ ' Treize'; 
if p3=14 then chaine:=chaine+ ' Quatorze'; 
if p3=15 then chaine:=chaine+ ' Quinze'; 
if p3=16 then chaine:=chaine+ ' Seize'; 
if p3=17 then chaine:=chaine+ ' Dix Sept'; 
if p3=18 then chaine:=chaine+ ' Dix Huit'; 
if p3=19 then chaine:=chaine+ ' Dix Neuf; 
end; 

procedure chiffre(var p2:integer); 
begin 

if p2=1 then chaine:=chaine+ ' Un'; 
if p2=2 then chaine:=chaine+ ' Deux'; 
if p2=3 then chaine:=chaine+ ' Trois'; 
if p2=4 then chaine:=chaine+ ’ Quatre'; 
if p2=5 then chaine:=chaine+ ' Cinq'; 
if p2=6 then chaine:=chaine+ ' Six'; 
if p2=7 then chaine:=chaine+ ' Sept'; 
if p2=8 then chaine:=chaine+ ' Huit'; 
if p2=9 then chaine:=chaine+ ' Neuf; 
end; 

procedure mille(var pi integer); 

var c:integer; 

begin 

c:=p1 div 100; 

if c=1 then chaine:=chaine+ ' Cent'; 
if c=2 then chaine:=chaine+ ' Deux Cent'; 
if c=3 then chaine:=chaine+ ' Trois Cent'; 
if c=4 then chaine:=chaine+ ' Quatre Cent'; 
if c=5 then chaine:=chaine+ ' Cinq Cent'; 
if c=6 then chaine:=chaine+ ' Six Cent'; 
if c=7 then chaine:=chaine+ ' Sept Cent'; 
if c=8 then chaine:=chaine+ ' Huit Cent'; 
if c=9 then chaine:=chaine+ ' Neuf Cent'; 
pi :=p1-c*100; c:=p1div10; 

if c=2 then begin chaine:=chaine+ ' Vingt' ; 
p1:=p1-c*10; chiffre(pl); 
end; 

if c=3 then begin chaine:=chaine+ ' Trente'; 

pi :=p1-c*10; 

chiffre(p1);end; 

if c=4 then begin chaine:=chaine+ ’ Quarante'; 

pi :=p1-c*10; 

chiffre(p1);end; 

if c=5 then begin chaine:=chaine+ ' Cinquante’; 

pi :=p1-c*10; 

chiffre(p1);end; 

if c=6 then begin chaine:=chaine+ ' Soixante'; 

pi :=p1-c*10; 

chiffre(p1);end; 

if c=8 then begin chaine:=chaine+ ' Quatre Vingt'; 

pi :=p1-c*10; 

chiffre(p1);end; 


if c=0 then chiffre(pl); 
if c=1 then decimale(pl); 
if c=7 then 
begin 

chaine:=chaine+ ’ Soixante'; pi :=p-60; 

decimale(pl); 

end; 

if c=9 then 
begin 

chaine:=chaine+ ' Quatre Vingt'; pi :=p1 -80; 

decimale(pl); 

end; end; 

{Programme principal} 
var abc:real; 
begin 

chaine:=' ’; 

n:=query1 .fieldbyname('ttc').asfloat; 
nombre:=trunc(n); 
abc:=int(n*100); 
dec:=trunc(abc) mod 100; 
if nombre>=1 000000000 then 
begin 

p:=nombre div 1000000000; 
nombre:=nombre-p*1 000000000; 
if p<>0 then 
begin 

mille(p); chaine:=chaine+ ' Milliard'; 
end; end; 

{milliards} 

if nombre>=1 000000 then 
begin 

p:=nombre div 1000000; 
nombre:=nombre-p*1 000000; 
if p<>0 then 
begin 

mille(p); chaine:=chaine+ ' Million'; 
end; end; 

{milliers} 

if nombre>=1000 then 
begin 

p:=nombre div 1 000; nombre:=nombre-p*1 000; 

if p<>1 then 

begin 

mille(p); chaine:=chaine+ ' Mille'; 
end else 
chaine:=chaine+ 'mille'; 
end; 

{simple} 

if (0<=nombre) and (nombre<1000) then 
begin 

p:=nombre; mille(p); 
end; 

chaine:=chaine+ ' dinars' +' et'; 
begin q:=dec; mille(q); 

IF q=0 THEN chaine:=chaine+ ' Zero CTS' 

Else chaine:=chaine+ ' CTS' 
end; 

{chaine:=chaine+ ' dinars' +' et'+chaine1+' CTS';} 
label8.caption:=chaine; end; 
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10- le « dbgridl » affiche le champ « numachat » (de la table ligne_achat) qui contient bien sur le meme numero 
de la facture_achat actuelle (puisque il y’a une liaison ma?tre_detail entre la table ligne_achat et la table facture_achat 
par leurs champs communs num achat et numero_a), done ce champ repetera pour tous les enregistrements du 
« dbgridl » le meme numero de facture, il vaut mieux alors de ne pas afficher ce dernier dans le « dbgridl ». pour 
supprimer ce champ : 

double clic sur le « dbgridl ». 

clic en haut de la petite fenetre sur le bouton « ajouter tous les champs » 
supprimer le champ « num achat >> et termer la petite fenetre. 

(Le champ « num achat >> ne sera pas supprime de la table « ligne_achat » mais seulement il ne sera pas affiche) 

1 1 - pour preparer I’impression de notre facture_achat on procede comme suite : 

On insere une nouvelle fiche a notre logiciel par le choix dans le menu Delphi de : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom: « fiche_etat_facture_achat >>. 

Ensuite : (le menu Delphi): fichieroenregistrer, et dans le dossier « c:\commerce\source >> nommer I’unite: 
«etat_facture_achat>> . 

Ensuite : on insere dans cette fiche un composant « quickrepl » de la palette « qreport ». 

Ensuite : on tape FI 2 et en haut de I’unite on ecrit dans la liste «uses» le nom «facture_achat>> et on compile Ctrl+F9 
pour assurer la liaison entre la fiche_facture_achat et la fiche_etat_facture_achat. 

Nb : par fois Delphi repete quelques unites de la partie uses si on ecrit une nouvelle unite dans cette partie, done on 
doit supprimer les unites dupliquees si Delphi signal ce probleme de repetition apres la compilation du logiciel. 

Ensuite : dans I’inspecteur d’objet du quickrepl on ecrit dans la propriete : zoom ■=> 70 

Ensuite : dans I’inspecteur d’objet du quickrepl on choisit dans la propriete : dataset ■=> « fiche_facture_achat.table3 >> 

Ensuite: choisir dans sa propriete Bands: hastitle^true; hascolumnheaderotrue; hasdetail^true; hassummaryo true. 
Ensuite : on insere les composants suivants de la palette « qreport » sur les bandes de ce quickrepl comme suite: 


.^P P i e vis. ua lisatio i ■ d'im p ■ essio ri 


UNI 



bande 

Composant 

Propriete 

valeur 

Titre 

(agrandir la hauteur 
de cette bande) 

qrlabell 

caption 

societe de commerce multiple 

qrlabel2 

caption 

Facture achat 

qrlabel3 

caption 

numero 

qrdbtextl 

dataset 

fiche_facture_achat.table1 

datafield 

Numero_a 

Qrlabel4 

caption 

Date achat 

Qrdbtext2 

dataset 

fiche_facture_achat.table1 

datafield 

Date_achat 

Qrlabel5 

caption 

reglement 

Qrdbtext3 

dataset 

fiche_facture_achat.table1 

datafield 

Reglement_a 

Qrlabel6 

caption 

fournisseur 

Qrdbtext4 

dataset 

fiche_facture_achat.table2 

datafield 

Nomf 

Entete de colonnes 

Qrlabel7 

caption 

Reference 

Qrlabel8 

caption 

Designation 

Qrlabel9 

caption 

Qte achat 

Qrlabel910 

caption 

Prix unite 

Qrlabell 1 

caption 

Tva 

Qrlabell 2 

caption 

total 
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Detail 

Qrdbtext5 

dataset 

fiche_facture_achat.table3 

datafield 

reference 

Qrdbtext6 

dataset 

fiche_facture_achat.table3 

datafield 

designation 

Qrdbtext7 

dataset 

fiche_facture_achat.table3 

datafield 

Qte_achat 

Qrdbtext8 

dataset 

fiche_facture_achat.table3 

datafield 

Prixachat 

Qrdbtext9 

dataset 

fiche_facture_achat.table3 

datafield 

tva 

Qrdbtextl 0 

dataset 

fiche_facture_achat.table3 

datafield 

total 

Resume 

(agrandir la hauteur 
de cette bande) 

Qrlabel 13 

caption 

HT 

Qrdbtextl 1 

dataset 

fiche facture achat.queryl 

datafield 

HT 

Qrlabel 14 

caption 

TOTAL TVA 

Qrdbtextl 2 

dataset 

fiche facture achat.queryl 

datafield 

TOTAL TVA 

Qrlabel 15 

caption 

TTC 

Qrdbtextl 3 

dataset 

fiche facture achat.queryl 

datafield 

TTC 

Qrlabel 16 

caption 

Arretez la presente facture a la somme de 

Qrlabel17 

caption 



Remarque : 

On peut utiliser les composants « Qrshape » de la palette « Qreport » pour encadrer les champs des tables 
(composants qrdbtext >>) et leurs entetes de colonnes (composants « qrlabel ») pour avoir ensuite des tables 
encadrees dans notre etat d’impression. Les etapes sont : 

inserer dans la bande entete de colonnes des composants « Qrshape » pour chaque 
« qrlabel >> de cette bande pour les encadrer. 

Le « qrshape » au debut cache le « qrlabel » qui va I’encadrer, done on clique sur chaque 
« qrshape » par le bouton doit de la sourie et on choisit dans le menu contextuel « mettre en 


» 


arriere plan 

Pour bien controler la position des « qrshape » on utilise les touches 
Ctrl + § ou les autre touches de fleches. 

Pour bien controler la taille des « qrshape » on utilise les touches 

Shift + 


ou les autre touches de fleches. 
on presse sur la touche Shift et par sourie on clique sur tous les « qrshape » de la bande 
« entete de colonnes » et en fin on lache la touche Shift et on tape les touches Ctrl + C pour 
copier ces cadres. 

On clique sur la bande « detail >> et on tape Ctrl + V pour coller les cadres dans cette bande. 
On deplace ces cadres par les touches Ctrl + @ et on clique sur ces cadres par le bouton 
droit de la sourie et on clique sur « mettre en arriere plan ». 

Ensuite : on tape Shift + FI 2 et on affiche la fiche « fiche_facture_achat » 

Ensuite : et pour une impression bien presentee de la facture on insere un composant popupmenu (palette standard). 
Ensuite : on double clique sur ce composant et on introduit les deux elements «previsualiser» et «imprimer» dans 
leurs proprietes «caption». 

Ensuite : on ferme la petite fenetre du « popupmenu >> et on clique sur le composant « speedbuttonl » qui represente 
I’impression et dans son inspecteur d’objet on choisit dans sa propriety « popupmenu » I’element « popupmenul ». 
Ensuite : pour programmer le composant popupmenul on double clique sur ce dernier et on double clique sur 
I’element « previsualiser » et on ecrit dans sa procedure : 

Fiche_etat_facture_achat.qrlabel17.caption := Iabel8. caption ; // qrlabel17 regoit le TTC en lettres. 
Fiche_etat_facture_achat.quickrep1 .preview ; 


Ensuit : on tape F12 pour retourner a la fiche et on double clique sur le composant « popupmenul » et on double 
clique sur I’element « imprimer » et on ecrit dans sa procedure : 

Fiche_etat_facture_achat.qrlabel17.caption := Iabel8. caption ; 

Fiche_etat_facture_achat.quickrep1 .print ; 


12- lorsqu’on enregistre les modifications dans notre tablel (facture_achat) par le bouton « enregistrer >> du 
dbnavigatorl , on doit ajouter les quantites_achat a la quantite du stock. On programme cela par le choix du 
composant tablel et dans la procedure de son evenement « afterpost >> on ecrit : 
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table3.first ; 

while not(table3.eof) do 

begin 

Table4.setkey ; // preparation de la recherche 

Table4.fieldbyname(‘reference’).asinteger := Table3.fieldbyname(‘ref_prod’).asinteger ; 
If table4.gotokey then 
Begin 

Table4.edit; //preparation de la modification 

Table4.fieldbyname(‘qte_stock’).asfloat:=Table4.fieldbyname(‘qte_stock’).asfloat+ 

Table3.fieldbyname(‘qte_achat’).asfloat; 

Table4.post; 

End; 

Table3.next; 

End; 


En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 

13- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu >> et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul >> et double clique sur son element facture achat (du sous 
menu Edition) 

Ensuite : on ecrit dans la procedure : fiche_facture_achat.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_facture_achat et on doit cliquer sur 0 pour cette demande 
de confirmation ; on recompile par Ctrl + ^9 pour faire la liaison aussi entre la fiche_facture_achat et la 
fiche_etat_facture_achat et on doit cliquer sur 


oui 


aussi pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche facture achat se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du 
logiciel : - On tape : Shift + FI 2 et on clique sur la « fiche_facture_achat » et on clique sur |Ok. 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 


2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 




4- FICHE FACTURE VENTE 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name >> le nom : « fiche_facture_vente». 
Ensuite : choisir dans le menu Delphi:fichier oenregistrer, et dans le dossier « c:\commerce\source >> nommer I’unite: 
«facture vente» 
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2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

Commerce 

Tablename 

Facture_vente 

Active 

True 

Table2 

Databasename 

Commerce 

Tablename 

client 

Active 

True 

Table3 

Databasename 

Commerce 

Tablename 

Ligne_vente 

Active 

True 

Table4 

Databasename 

Commerce 

Tablename 

Produit 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablel 

Datasource2 

Dataset 

Table2 

Datasource3 

Dataset 

Table3 

controlebd 

Dbgridl 

Datasource 

Datasource3 

Supplement 

Speedbuttonl 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 

BDE 

Query 1 

databasename 

Commerce 

Sql 

Select 

sum(qte_vente*prix_vente)as HT,Sum(qte_vente *prix_vente*tva)as total_tva, 
Sum (qte_vente*prix_vente*(l+tva)) as TTC from produit, ligne_vente 
Where (reference = ref_prod) and (num_vente = :p) 

Params 

Clique sur « p » et choisir dans la propriete datatype : « ftinteger » 

Active 

True 

controlebd 

dbnavigator 

datasource 

Datasourcel 


3- Double clique sur le composant tablel . 

Ensuite : clique droit sur la petite fenetre et clique dans le menu contextuel sur: « ajouter tous les champs >>. 

Ensuite : glisser les champs de la table facture_vente un par vers le haut de la fiche, a la fin termer la petite fenetre. 
Ensuite : supprimer le composant « dbedit3 » qui represente le champ « reglement » et le remplacer par le 
composant « dbcomboboxl >> de la palette « controlebd » et modifier les proprietes de ce « dbcomboboxl >> comme 
suite : 

Datasource ■=> datasourcel 
Datafield ■=> reglement 

Items ■=> clique sur le petit bouton Q et ecrire : cheque, espece, credit (chacun dans une ligne) et fermer la fenetre. 

Ensuite : supprimer le composant « dbedit4 » qui represente le champ «code_cli» et le remplacer par le composant 

« dblookupcomboboxl » (palette «controlebd») et modifier les proprietes de ce «dblookupcombobox1 » comme suite : 

Datasource ■=> datasourcel 

Datafield ■=> code_cli 

Listsource ■=> datasource2 

Listfield ■=> code_c; nom_c 

Keyfield ■=> code_c 


4- Pour mettre le curseur du clavier automatiquement dans le « dbeditl >> pour faciliter la saisie du numero de la 
facture on clique sur le composant « tablel » et dans son inspecteur d’objet double clique a droite de son 
evenement : « afterinsert » on ecrit dans sa procedure : 

dbeditl .setfocus ; 

ensuite on peut controler la manipulation du clavier par : 
clique sur le composant dbeditl . 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk_return then 
Dbedit2.setfocus ; 

tapez FI 2 et clique sur le composant dbedit2. 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk_return then 
DbComboboxI .setfocus ; 

tapez FI 2 et clique sur le composant dbcomboboxl . 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk_return then 
DblookupComboboxI .setfocus ; 
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5- Pour masquer le format d’affichage de la « date_vente » : 

- on double clique sur le composant « tablel » 

- dans la petite fenetre on clique sur le champ « date_vente » 

- on clique sur le petit bouton Q de sa propriety « editmask » 

- on clique dans la liste a droite de la fenetre sur I’element « date longuel » et on clique sur |Ok 

- on ferme la petite fenetre et la date_vente sera masquee par le format « » 

6- pour faire une liaison maitre-detail entre la table maTtre« facture_vente », et la table detaille « ligne_vente >> : 
On clique sur le composant table3 « ligne_vente », et choisir dans sa propriety : mastersource -> datasourcel . 

Ensuite : dans sa propriety « masterfield >> on clique sur petit bouton. 

Ensuite : on choisit dans la liste a gauche le champ « numvente » et a droite le champ « numero_v ». 

Ensuite : clique sur le bouton « ajouter » ensuite sur le bouton |Ok. 

7- on peut renforcer cette fenetre par les champs calcules comme suite : 

On double clique sur le composant table3 « ligne_vente ». 

Ensuite : on clique droit sur la petite fenetre et on clique sur « ajouter tous les champs >>. 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ >>. 

Ensuite : on ecrit le nom du champ : « designation » et on choisit le type du champ : « string » et on clique sur |Ok . 
Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « prix vente >> et on choisit le type du champ : « currency » et on clique sur ^k . 
Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « tva >> et on choisit le type du champ : « float » et on clique sur ^k . 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « total » et on choisit le type du champ : « currency » et on clique sur |Ok . 

A la fin : on ferme la petite fenetre. 

Ensuite : on clique sur le composant « table3 » (ligne_vente) et dans son inspecteur d’objet on clique sur I’ongle 
evenement 

Ensuite : on double clique a droite de I’evenement « oncalcfield » et on ecrit dans la procedure : 

Table4.open ; 

Table4.setkey ; 

Table4.fieldbyname(‘reference’).asinteger := Table3.fieldbyname(‘ref_prod’).asinteger ; 

If table4.gotokey then 
Begin 

Table3.fieldbyname(‘designation’).asstring:= Table4.fieldbyname(‘designation’).asstring; 
Table3.fieldbyname(‘prix_vente’).ascurrency:= Table4.fieldbyname(‘prix_vente’).ascurrency ; 
Table3.fieldbyname(‘tva’).asfloat:= Table4.fieldbyname(‘tva’).asfloat; 
Table3.fieldbyname(‘totar).ascurrency:=Table3.fieldbyname(‘qte_vente’).asfloat* 
Table4.fieldbyname(‘prix_vente’).ascurrency; 

End; 

// On profite I’occasion pour passer une valeur au parametre a notre requete « queryl » 

Queryl .close; 

Queryl .parambyname(‘p’).asinteger :=table1 .fieldbyname(‘numero_v’).asinteger ; 

Queryl .active:=true; 

8- on tape FI 2 pour retourner a la fiche et on double clique sur le composant « queryl ». 

Ensuite : clique doit sur la petite fenetre et clique dans le menu contextuel sur : « ajouter tous les champs ». 

Ensuite : glisser les champs de la requete facture un par un vers le bas de la fiche, a la fin fermer la petite fenetre. 

9- pour que la facture affiche son montant ttc en lettres on precede comme suite : 

On insere un composant « Buttonl » (palette standard) et dans sa propriety : « caption » on ecrit : conversion. 

Ensuite : on insere un composant Label (palette standard) et supprimer le contenu de sa propriete « caption » 

Ensuite : on double clique sur le composant « Boutonl » et on ecrit dans sa procedure : (Supprimer son begin et end 
et coller tous le code source suivant) 
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var chainel ,chaine:string; 
p,nombre,q,DEC:integer; 

N,n1 :real; 

procedure decimale(var p3:integer); 
begin 

if p3=10 then chaine:=chaine+ ' Dix'; 
if p3=1 1 then chaine:=chaine+ ' Onze'; 
if p3=12 then chaine:=chaine+ ' Douze'; 
if p3=13 then chaine:=chaine+ ' Treize'; 
if p3=14 then chaine:=chaine+ ' Quatorze'; 
if p3=15 then chaine:=chaine+ ' Quinze'; 
if p3=16 then chaine:=chaine+ ' Seize'; 
if p3=17 then chaine:=chaine+ ' Dix Sept'; 
if p3=18 then chaine:=chaine+ ' Dix Huit'; 
if p3=19 then chaine:=chaine+ ' Dix Neuf; 
end; 

procedure chiffre(var p2:integer); 
begin 

if p2=1 then chaine:=chaine+ ' Un'; 
if p2=2 then chaine:=chaine+ ' Deux'; 
if p2=3 then chaine:=chaine+ ' Trois'; 
if p2=4 then chaine:=chaine+ ' Quatre'; 
if p2=5 then chaine:=chaine+ ' Cinq'; 
if p2=6 then chaine:=chaine+ ' Six'; 
if p2=7 then chaine:=chaine+ ' Sept'; 
if p2=8 then chaine:=chaine+ ' Huit'; 
if p2=9 then chaine:=chaine+ ' Neuf; 
end; 

procedure mille(var pi integer); 

var c:integer; 

begin 

c:=p1 div 100; 

if c=1 then chaine:=chaine+ ' Cent'; 

if c=2 then chaine:=chaine+ ' Deux Cent'; 

if c=3 then chaine:=chaine+ ' Trois Cent'; 

if c=4 then chaine:=chaine+ ' Quatre Cent'; 

if c=5 then chaine:=chaine+ ' Cinq Cent'; 

if c=6 then chaine:=chaine+ ' Six Cent'; 

if c=7 then chaine:=chaine+ ' Sept Cent'; 

if c=8 then chaine:=chaine+ ' Huit Cent'; 

if c=9 then chaine:=chaine+ ' Neuf Cent'; 

pi :=p1-c*100; c:=p1div10; 

if c=2 then begin 

chaine:=chaine+ ' Vingt' ; 

p1:=p1-c*10; chiffre(pl); end; 

if c=3 then begin 

chaine:=chaine+ ' Trente'; 

p1:=p1-c*10; chiffre(p1);end; 

if c=4 then begin 

chaine:=chaine+ ' Quarante'; 

p1:=p1-c*10; chiffre(p1);end; 

if c=5 then begin 

chaine:=chaine+ ' Cinquante'; 

p1:=p1-c*10; chiffre(p1);end; 

if c=6 then begin 

chaine:=chaine+ ' Soixante'; 

p1:=p1-c*10; chiffre(p1);end; 

if c=8 then begin 

chaine:=chaine+ ' Quatre Vingt'; 

pi :=p1 -c*1 0; chiffre(p1 );end; 


if c=0 then chiffre(pl); 
if c=1 then decimale(pl); 
if c=7 then 
begin 

chaine:=chaine+ ’ Soixante'; 
p1:=p-60; decimale(p1);end; 
if c=9 then 
begin 

chaine:=chaine+ ’ Quatre Vingt'; 
pi :=p1 -80; decimale(p1 ); 
end; end; 

{Programme principal} 
var abc:real; 
begin 

chaine:=' ’; 

n:=query1 .fieldbyname('ttc').asfloat; 
nombre:=trunc(n); 
abc:=int(n*100); 
dec:=trunc(abc) mod 100; 
if nombre>=1 000000000 then 
begin 

p:=nombre div 1000000000; 
nombre:=nombre-p*1 000000000; 
if p<>0 then 
begin 

mille(p); chaine:=chaine+ ' Milliard'; 
end; end; 

{milliards} 

if nombre>=1 000000 then 
begin 

p:=nombre div 1000000; 
nombre:=nombre-p*1 000000; 
if p<>0 then 
begin 

mille(p); chaine:=chaine+ ' Million'; 
end; end; 

{milliers} 

if nombre>=1000 then 
begin 

p:=nombre div 1000; 
nombre:=nombre-p*1 000; 
if p<>1 then 
begin 

mille(p); chaine:=chaine+ ' Mille'; 
end else 
chaine:=chaine+ 'mille'; 
end; 

{simple} 

if (0<=nombre) and (nombre<1000) then 
begin 

p:=nombre; mille(p); 
end; 

chaine:=chaine+ ' dinars' +' et'; 
begin q:=dec; mille(q); 

IF q=0 THEN 

chaine:=chaine+ ' Zero CTS' 

Else 

chaine:=chaine+ ' CTS' 
end; 

{chaine:=chaine+ ' dinars' +' et'+chaine1+' CTS';} 

label8.caption:=chaine; 

end; 
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10- le « dbgridl » affiche le champ « numvente » (de la table ligne_vente) qui contient bien sur le meme numero 
de la facture_vente actuelle (puisque il y’a une liaison maitre_detail entre la table ligne_vente et la table 
facture_vente par leurs champs communs num vente et numero_v), done ce champ repetera pour tous les 
enregistrements du « dbgridl » le meme numero de facture, il vaut mieux alors de ne pas afficher ce dernier dans 
le « dbgridl ». pour supprimer ce champ : 

double clic sur le « dbgridl ». 

clic en haut de la petite fenetre sur le bouton « ajouter tous les champs » 
supprimer le champ « num vente » et termer la petite fenetre. 

(Le champ « num vente » ne sera pas supprime de la table « ligne_vente » mais seulement il ne sera pas affiche) 


1 1 - pour preparer I’impression de notre facture_vente on precede comme suite : 

On insere une nouvelle fiche a notre logiciel par le choix dans le menu Delphi de : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom: « fiche_etat_facture_vente ». 

Ensuite : (le menu Delphi): fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer I’unite: 
« etat_f actu re_ve nte » . 

Ensuite : on insere dans cette fiche un composant « quickrepl » de la palette « qreport >>. 

Ensuite : on tape FI 2 et en haut de I’unite on ecrit dans la liste «uses» le nom «facture_vente» et on compile Ctrl+F9 
pour assurer la liaison entre la fiche_facture_vente et la fiche_etat_facture_vente. 

Nb : par fois Delphi repete quelques unites de la partie uses si on ecrit une nouvelle unite dans cette partie, done on 
doit supprimer les unites dupliquees si Delphi signal ce probleme de repetition apres la compilation du logiciel. 

Ensuite : dans I’inspecteur d’objet du quickrepl on ecrit dans la propriete : zoom ■=> 70 

Ensuite : dans I’inspecteur d’objet du quickrepl on choisit dans la propriete : dataset ■=> « fiche_facture_vente.table3 » 

Ensuite :choisir dans sa propriete Bands: hastitle^true; hascolumnheaderotrue; hasdetail^true; hassummaryo true. 
Ensuite : on insere les composants suivants de la palette « qreport » sur les bandes de ce quickrepl comme suite: 


t' l eviiualis^tion d'impi ^^ion 



- M3S 

an 1 EEl H 4 ► ►! tS* 

E i cP- 

Fermer 



M u m e ro 
date ve nte 
re g I e rn e nt 
cli ent 


1 

1 2/1 2/2005 
Ch e q u e 
La rn i n e 


Total_Ht 473 00 0,00 Da 
T" ot a i_Tva 7 0 9 6 O O 0 , O O D a 
Total TTC 7 569 000,00 Da 


commerce multi pi 
Fact u re vente 


R ete re n c e 

d e s i g n at i o n 

qte vente 

p ri x 

tva 

t ota 1 

1 

O rd inate u r 

1 0 

24 000,00 Da 

14 

240 000.00 Da 

2 

1 rn p ri rn a n te 

20 

7 900,00 Da 

1 7 

153 000,00 Da 

3 

S c. a n n e u r 

1 5 

5 000,00 Da 

14 

75 000,00 Da 


ARRETEZLA PRESENTE FACTURE A LA SOMME DE: 

S e pt M fllion C- i n q C ent Soi x a nt e N e uf M i 1 1 e dinars et Ze ro CIS 


l-'age 1 sur 1 


bande 

Composant 

Propriete 

valeur 

Titre 

(agrandir la hauteur 
de cette bande) 

qrlabell 

caption 

societe de commerce multiple 

qrlabel2 

caption 

Facture vente 

qrlabel3 

caption 

numero 

qrdbtextl 

dataset 

fiche_facture_vente.table1 

datafield 

Numero_v 

Qrlabel4 

caption 

Date vente 

Qrdbtext2 

dataset 

fiche_facture_vente.table1 

datafield 

Date_vente 

Qrlabel5 

caption 

reglement 

Qrdbtext3 

dataset 

fiche_facture_vente.table1 

datafield 

Reglement_v 

Qrlabel6 

caption 

client 

Qrdbtext4 

dataset 

fiche_facture_vente.table2 

datafield 

Nome 
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Entete de colonnes 

Qrlabel7 

caption 

Reference 

Qrlabel8 

caption 

Designation 

Qrlabel9 

caption 

Qte vente 

Qrlabel910 

caption 

Prix unite 

Qrlabel 1 1 

caption 

Tva 

Qrlabel12 

caption 

total 

Detail 

Qrdbtext5 

dataset 

fiche_facture_vente.table3 

datafield 

reference 

Qrdbtext6 

dataset 

fiche_facture_vente.table3 

datafield 

designation 

Qrdbtext7 

dataset 

fiche_facture_vente.table3 

datafield 

Qte_vente 

Qrdbtext8 

dataset 

fiche_facture_vente.table3 

datafield 

Prixvente 

Qrdbtext9 

dataset 

fiche_facture_vente.table3 

datafield 

tva 

Qrdbtextl 0 

dataset 

fiche_facture_vente.table3 

datafield 

total 

Resume 

(agrandir la hauteur 
de cette bande) 

Qrlabel 13 

caption 

HT 

Qrdbtextl 1 

dataset 

fiche facture vente.queryl 

datafield 

HT 

Qrlabel 14 

caption 

TOTAL TVA 

Qrdbtextl 2 

dataset 

fiche facture vente.queryl 

datafield 

TOTAL TVA 

Qrlabel 15 

caption 

TTC 

Qrdbtextl 3 

dataset 

fiche facture vente.queryl 

datafield 

TTC 

Qrlabel 16 

caption 

Arretez la presente facture a la somme de 

Qrlabel17 

caption 



Remarque : 

On peut utiliser les composants « Qrshape » de la palette « Qreport >> pour encadrer les champs des tables 
(composants qrdbtext ») et leurs entetes de colonnes (composants « qrlabel >>) pour avoir ensuite des tables 
encadrees dans notre etat d’impression. 

Les etapes sont : 

inserer dans la bande entete de colonnes des composants « Qrshape » pour chaque 
« qrlabel » de cette bande pour les encadrer. 

Le « qrshape » au debut cache le « qrlabel » qui va I’encadrer, done on clique sur chaque 
« qrshape >> par le bouton doit de la sourie et on choisit dans le menu contextuel « mettre en 


» 


arriere plan 

Pour bien controler la position des « qrshape » on utilise les touches 
Ctrl + § ou les autre touches de fleches. 

Pour bien controler la taille des « qrshape » on utilise les touches 

Shift + 


ou les autre touches de fleches. 
on presse sur la touche Shift et par sourie on clique sur tous les « qrshape >> de la bande 
« entete de colonnes » et en fin on lache la touche Shift et on tape les touches Ctrl + C pour 
copier ces cadres. 

On clique sur la bande « detail >> et on tape Ctrl + V pour coller les cadres dans cette bande. 
On deplace ces cadres par les touches Ctrl + -> et on clique sur ces cadres par le bouton 
droit de la sourie et on clique sur « mettre en arriere plan ». 


Ensuite : on tape Shift + FI 2 et on affiche la fiche « fiche_facture_vente » 

Ensuite : et pour une impression bien presentee de la facture on insere un composant popupmenu (palette standard). 
Ensuite : on double clique sur ce composant et on introduit les deux elements «previsualiser» et «imprimer» dans 
leurs proprietes «caption». 

Ensuite : on ferme la petite fenetre du « popupmenu >> et on clique sur le composant « speedbuttonl » qui represente 
I’impression et dans son inspecteur d’objet on choisit dans sa propriety « popupmenu >> I’element « popupmenul ». 
Ensuite : pour programmer le composant popupmenul on double clique sur ce dernier et on double clique sur 
I’element « previsualiser >> et on ecrit dans sa procedure : 

Fiche_etat_facture_vente.qrlabel17.caption := label8.caption ; 

Fiche_etat_facture_vente.quickrep1 .preview ; 
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Ensuit : on tape FI 2 pour retourner a la fiche et on double clique sur le composant « popupmenul >> et on double 
clique sur I’element « imprimer » et on ecrit dans sa procedure : 

Fiche_etat_facture_vente.qrlabel17.caption := Iabel8. caption ; 

Fiche_etat_facture_vente.quickrep1 .print ; 

12- lorsqu’on enregistre les modifications dans notre tablel (facture_vente) par le bouton « enregistrer » du 
dbnavigatorl , on doit supprimer les quantites_vente des quantite_stock. On programme cela par le choix du 
composant tablel et dans la procedure de son evenement « afterpost >> on ecrit : 

table3.first ; 

while not(table3.eof) do 

begin 

Table4.setkey ; // preparation de la recherche 

Table4.fieldbyname(‘reference’).asinteger := Table3.fieldbyname(‘ref_prod’).asinteger ; 

If table4.gotokey then 
Begin 

Table4.edit; //preparation de la modification 

Table4.fieldbyname(‘qte_stock’).asfloat:=Table4.fieldbyname(‘qte_stock’).asfloat- 

Table3.fieldbyname(‘qte_vente’).asfloat; 

Table4.post; 

End; 

Table3.next; 

End; 

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 

13- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu >> et on clique sur ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element facture vente (du sous 
menu Edition) 

Ensuite : on ecrit dans la procedure : fiche_facture_vente.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_facture_vente et on doit cliquer sur 0 pour cette demande 
de confirmation; on recompile par Ctrl +^9 pour faire la liaison aussi entre la fiche facture vente et la 
fiche_etat_facture_vente et on doit cliquer sur 


oui 


aussi pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche facture vente se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du 
logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_facture_vente » et on clique sur £)k 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position -> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier -> tout enregistrer. 


❖ 


Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


i- LA FICHE CONSULTATION ACHATS 



1 . choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name >> le nom : 

« fiche_consultation_achat». 

Ensuite : (le menu Delphi): fichiero enregistrer, et dans le dossier « c:\commerce\source » nommer I’unite: 
consultation achat» 
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2. inserer les composants suivants : 


Palette 

Composant 

si 

Valeur 

supplement 

bitbtn 

kind 

bkclose 

standard 

label 1 

Caption 

numero facture 

editl 

text 


BDE 

Queryl 

databasename 

Commerce 

Sql 

Select * from facture_achat Where numero_a = mum 


Clique sur « num » et choisir dans la propriete datatype : « ftinteger » 


True 


Datasourcel 

dataset 

Queryl 

Supplement 

Speedbuttonl 

glyph 

(choisir une image) 

standard 

label2 

Caption 

Date debut 

label3 

Caption 

Date fin 

Win32 

datetimepickerl 



datetimepicker2 



supplement 

Speedbutton2 

glyph 

(choisir une image) 

BDE 

Query2 

databasename 

commerce 

Sql 

Select * from facture_achat 

Where (date_achat >=: debut) and (date_achat <=:fin) 

Params 

Clique sur « debut » et choisir dans la propriete datatype : « ftdate » 

Clique sur « fin » et choisir dans la propriete datatype : « ftdate » 


True 

standard 

label4 

Caption 

Reglement 

comboboxl 

text 


items 

cheque 

espece 

credit 

Supplement 

Speedbutton3 

glyph 

(choisir une image) 

BDE 

Query3 

databasename 

commerce 

Sql 

Select * from facture_achat Where reglement_a =:reg 


Clique sur « reg » et choisir dans la propriete datatype : « ftstring » 


True 

Table 1 

databasename 

Commerce 

tablename 

Fournisseur 

Active 

True 


Datasource2 

dataset 

Table 1 

Standard 

Label 1 

caption 

Fournisseur 

controlebd 

oboxdblookupcomb 1 

listsource 

datasource2 

listfield 

codef ;nom_f 


Code_f 

BDE 

Query4 

databasename 

Commerce 

Sql 

Select * from facture_achat Where code_four =:cod 


Clique sur « cod » et choisir dans la propriete datatype : « ftinteger » 


True 

Supplement 

Speedbutton4 

glyph 

(choisir une image) 

BDE 

Table2 

databasename 

commerce 

tablename 

Ligne_achat 

active 

true 

mastersource 

datasourcel 

masterfield 

Clique sur « num_achat » et clique sur « numero_a » et clique sur Aj outer et clique sur Ok 


datasource3 

dataset 

table2 

controlebd 

dbgridl 

datasource 

datasourcel 

dbgrid2 

datasource 

datasource3 


3. double clique sur le composant « speedbuttonl » et ecrire : 

Queryl .close ; 

Query1.params[0].asinteger :=strtoint(edit1.text); 

Queryl .active :=true ; 

Datasourcel .dataset :=Query1 ; 

4. tapez FI 2 et double clique sur le composant « speedbutton2 » et ecrire: 

Query2. close ; 

Query2.params[0].asdate :=datetimepicker1 .date; 
Query2.params[lj.asdate :=datetimepicker2.date; 

Query2. active :=true ; 

Datasourcel .dataset :=Query2 ; 


- 68 - 
























































































































Ann rend re Delphi7 par IJexemple 


Qwpitre 2 Logiciel Gestion Comnerciale 


5. tapez FI 2 et double clique sur le composant « speedbutton3 » et ecrire: 

Query3. close ; 

Query3.params[0].asstring :=combobox1 .text; 

Query3.active :=true ; 

Datasourcel .dataset :=Query3 ; 

6. tapez FI 2 et double clique sur le composant « speedbutton4 » et ecrire: 

Query4. close ; 

Query4.params[0].asinteger :=strtoint(dblookupcombobox1.text); 
Query4.active :=true ; 

Datasourcel .dataset :=Query4 ; 


7. cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element Achats (du sous menu 
Consultation) 

Ensuite : on ecrit dans la procedure : fiche_consultation_achat.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_consultation_achat et on doit cliquer sur |Ouj] pour cette 
demande de confirmation. 

Remarques : 

1- Pour que la fiche consultation achat se place au milieu de I’ecran si on I’appel lors du lancement de Pexecution du 
logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_consultation_achat >> et on clique sur £>k 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier otout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


❖ 


L FICHE CONSULTATION VENTES 



1- choisir dans le menu Delphi : fichier o nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom : 

« fiche_consultation_vente». 

Ensuite : (le menu Delphi): fichier ■=> enregistrer, et dans le dossier « c:\commerce\source » nommer I’unite: 
«consultation_vente» 

2- inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

bitbtn 

kind 

bkclose 

standard 

label 1 

Caption 

numero facture 

editl 

text 


BDE 

Query 1 

databasename 

Commerce 

Sql 

Select * from facture_vente Where numero_v = mum 

Params 

Clique sur « num » et choisir dans la propriete datatype : « ftinteger » 

Active 

True 

Acceesbd 

Datasourcel 

dataset 

Query 1 

Supplement 

Speedbuttonl 

glyph 

C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\find.bmp 

standard 

label2 

Caption 

Date debut 

label3 

Caption 

Date fin 

Win32 

datetimepickerl 
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datetimepicker2 



supplement 

speeddbutton2 

glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\find.bmp 

BDE 

Query2 

databasename 

commerce 

Sql 

Select * from facture_vente 

Where (date_vente >=: debut) and (date_vente <=:fin) 

Params 

Clique sur « debut » et choisir dans la propriete datatype : « ftdate » 

Clique sur « fin » et choisir dans la propriete datatype : « ftdate » 

Active 

True 

standard 

label4 

Caption 

Reglement 

comboboxl 

text 


items 

cheque 

espece 

credit 

Supplement 

Speedbutton3 

glyph 

C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\find.bmp 

BDE 

Query3 

databasename 

commerce 

Sql 

Select * from facture_vente Where reglement_v =:reg 

Params 

Clique sur « reg » et choisir dans la propriete datatype : « ftstring » 

Active 

True 

Tablet 

databasename 

Commerce 

tablename 

client 

Active 

True 

Accesbd 

Datasource2 

dataset 

Tablet 

Standard 

Label 1 

caption 

client 

controlebd 

dblokupcombboxl 

listesource 

datasource2 

listefield 

code_c;nom_c 

keyfield 

codec 

BDE 

Query4 

databasename 

Commerce 

Sql 

Select * from facture_vente Where code_cli =:cod 

Params 

Clique sur « cod » et choisir dans la propriete datatype : « ftinteger » 

Active 

True 

Supplement 

Speedbutton4 

glyph 

C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\find.bmp 

BDE 

AccesBd 

Table2 

databasename 

commerce 

tablename 

lignevente 

active 

true 

mastersource 

datasourcel 

masterfield 

Clique sur « num_vente » et clique sur « numero_v » et clique sur Aj outer et clique sur 
Ok 

datasource3 

dataset 

table2 

controlebd 

dbgridl 

datasource 

cedatasourl 

dbgrid2 

datasource 

datasource3 


8. double clique sur le composant « speedbuttonl » et ecrire : 

Queryl .close ; 

Query1.params[0].asinteger :=strtoint(edit1.text); 

Queryl .active :=true ; 

Datasourcel .dataset :=Query1 ; 

9. tapez FI 2 et double clique sur le composant « speedbutton2 » et ecrire: 

Query2. close ; 

Query2.params[0].asdate :=datetimepicker1 .date; 
Query2.params[lj.asdate :=datetimepicker2.date; 

Query2. active :=true ; 

Datasourcel .dataset :=Query2 ; 

10. tapez FI 2 et double clique sur le composant « speedbutton3 » et ecrire: 

Query3.close ; 

Query3.params[0].asstring :=combobox1 .text; 

Query3.active :=true ; 

Datasourcel .dataset :=Query3 ; 

1 1 . tapez FI 2 et double clique sur le composant « speedbutton4 » et ecrire: 

Query4.close ; 

Query4.params[0].asinteger :=strtoint(dblookupcombobox1.text); 
Query4.active :=true ; 

Datasourcel. dataset :=Query4 ; 
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12. cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ok 


Ensuite : double clique sur le « mainmenul >> et double clique sur son element Ventes (sous menu Consultation) 
Ensuite : on ecrit dans la procedure : fiche_consultation_vente.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_consultation_vente et on doit cliquer sur |Oui| pour cette 
demande de confirmation. 


Remarques : 

1- Pour que la fiche consultation vente se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du 

logiciel : - On tape : Shift + FI 2 et on clique sur la « fiche_consultation_vente >> et on clique sur |Ok 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 




FICHE ST ATISTIOUES REGLEMENT 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name»le 
nom:«fiche_statistiques_reglement». 

Ensuite:(le menu Delphi): fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer 
l’unite:«statistiques_reglement>> 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Query 1 

databasename 

commerce 

Sql 

Select reglement_a, count(reglement_a) as nombre 
from facture_achat group by reglement_a 

Active 

True 

Query2 

databasename 

commerce 

Sql 

Select reglement_v, count(reglement_v) as nombre 
from facture_vente group by reglement_v 

Active 

True 

supplement 

bitbtn 

kind 

bkclose 

Win32 

Pagecontroll 



Clique droit sur ce 
composant et clique sur 
« nouvelle page » 

Caption 

atsReglement des ach 

Clique droit sur ce 
composant et clique sur 
« nouvelle page » 

Caption 

Reglement des ventes 
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controlebd 


DBchartl (Inserer ce composant sur le composant « pagecontrolel » dans la page « reglement des achats » ) 
(il faut cliquer sur l’ongles « lement des achatsreg » et cliquer ensuite dans le cadre interieur de cette page) 
Et double clique sur ce composant « dbchartl » 

Et clique sur Eongle inferieur « serie » 


Et clique sur le bouton Aj outer 


Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur Eongle superieur « serie » 

Et clique sur l’ongle « source de donnees » 

Et choisir dans la liste E element « dataset » 

Et choisir dans la liste dataset E element « query 1 » 

Et choisir dans la liste « libelle » E element « reglement » 
Et choisir dans la liste « sectoriel » E element « nombre » 


A la fin clique sur Fermer 


controlebd 


DBchart2 (Inserer ce composant sur le composant « pagecontrolel » dans la page « reglement des ventes ») 
(il faut cliquer sur l’ongles « reglement des ventes » et cliquer ensuite dans le cadre interieur de cette page) 
Et double clique sur ce composant « dbchart2 » 

Et clique sur Eongle inferieur « serie » 


Et clique sur le bouton Aj outer 


Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur Eongle superieur « serie » 

Et clique sur Eongle « source de donnees » 

Et choisir dans la liste E element « dataset » 

Et choisir dans la liste dataset E element « query2 » 

Et choisir dans la liste « libelle » E element « reglement » 
Et choisir dans la liste « sectoriel » E element « nombre » 


A la fin clique sur Fermer 


Remarque : 

Pour que la fiche statistiques achats affiche toujours les dernieres modifications automatiquement (rafraichissement 
automatique des donnees du queryl et query2) : Clique sur la fiche_statistiques_reglement 
Dans son inspecteur d’objet double clique a droite de I’evenement « onactivate » 

Ensuite : ecrire le code source suivant dans la procedure correspondante : 

Queryl .close ; 

Queryl .active :=true ; 

Query2.close ; 

Query2.active :=true ; 


3- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur jDk 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element Reglements (du sous 
menu statistiques) 

Ensuite : on ecrit dans la procedure : fiche_statistiques_reglement.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_statistiques_reglement et on doit cliquer sur |OuH pour cette 
demande de confirmation. 

Remarques : 

1- Pour que la fiche statistique reglement se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution 

du logiciel : - On tape : Shift + FI 2 et on clique sur la « fiche_statistique_reglement » et on clique sur ^k. 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- On enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


❖ 


4- FICHE MOT DE PASSE 



1 -choisir dans le menu Delphi : fichier ■=> nouveau ■=> dialogue ■=> dialogue de mot de passe. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name» le nom: « fiche_passe». 
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Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer I’unite : «passe» 

2- inserer un composant « tablel >> (palette BDE) et manipuler ses proprietes : 

Databasename ■=> commerce table name ■=> protection active^ true. 


3- Double clique sur le bouton |Ok| et ecrire dans sa procedure : 

if password.text=table1.fieldbyname('password').asstring then 

fiche_menu.showmodal 

else 

begin 

showmessage('mot de passe incorrecte'); 

password.clear; 

password.setfocus; 

end; 


4- double clique sur le Bouton |Annuler| et ecrire dans sa procedure : application.terminate 


remarques importantes: 

a- Pour que la fiche_passe se lance la premiere lors de chaque execution du logiciel on choisit dans le menu Delphi 


Projet ■=> options ■=> dans I’ongles « fiche » ■=> dans la liste « fiche principale >> ■=> choisir : « fiche_passe » ■=> |Ok 
b- II taut ajouter les deux unites : messages, dialogs, dans la liste uses de I’unite « passe » 

Nb : par fois Delphi repete quelques unites de la partie uses si on ecrit une nouvelle unite dans cette partie, done on 
doit supprimer les unites dupliquees si Delphi signal ce probleme de repetition apres la compilation du logiciel. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


❖ 


4- FICHE PROTECTION 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety «name»le nom:« fiche_protection ». 
Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer I’unite : 
« protection » 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

bitbtnl 

kind 

bkclose 

bitbtn2 

kind 

bkok 

standard 

label 1 

caption 

eancien mot de pass 

editl 

text 


passwordchar 

* 

label2 

caption 

nouveau mot de passe 

edit2 

text 


passwordchar 

* 

label3 

caption 

confirmation 

edit3 

text 


passwordchar 

* 

BDE 

tablel 

databasename 

commerce 

tablename 

protection 

Active 

True 
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3- double clique sur le composant « BitBtn2 » et ecrire dans sa procedure: 

If editl.text = table1.fieldbyname(‘password’).asstring then 

If edit2.text = edit3.text then 

Begin 

Tablel.edit; 

T ablel .f ieldbyname(‘password’).asstring :=edit2.text ; 

Tablel.post; 

Showmessage(‘ la modification du mot de passe est effectuee ’) 

End 

Else Showmessage(‘ la confirmation du mot de passe est incorrecte ’) 
Else Showmessage(‘ l”ancien mot de passe est incorrecte ’) ; 


4- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element protection (du sous 
menu outils) 

Ensuite : on ecrit dans la procedure : fiche_protection.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_protection et on doit cliquer sur |Oui| pour cette demande de 
confirmation. 


Remarques : 

1- Pour que la fiche protection se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fiche_protection » et on clique sur Ok 


On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 
On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche. 


❖ 


4- FICHE ARCHIVAGE 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name» le nom:« fiche_archivage ». 
Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer l’unite:« 
archivage» 

2- tapez F12 et dans la liste uses de I’unite archivage II faut ajouter I’unite : ShellAPI, . 

3- tapez FI 2 pour revenir a la fiche et Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

win3.1 

FileListBoxl 

name 

fichier 

Mask 

*.db 

Directory Li stB ox 1 

name 

driverlist 

Dri veComboB ox 1 

name 

driver 

Dirlist 

driverlist 

FilterComboB ox 1 

Filelist 

fichier 

filter 

*.db 

supplement 

BitBtnl 

kind 

bkclose 

Speedbuttonl 

caption 

archiver 

glyph 

C:\Program Files\Fichiers communsYBorland shared\Images\Buttons\floppy.bmp 

standard 

Label 1 

caption 

lecteur 
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4 - Double clique sur le composant speedbuttonl et ecrire dans sa procedure : 

if CopyFolder('c:\commerce\base', driverlist.Directory) then 
ShowMessage(‘Archivage effectue avec succes') else 
ShowMessage(' Archivage non effectue'); 

5- il faut inserer avant la procedure BitBtn4Click la fonction suivante : 

function CopyFolder(FromFld, ToFId: string): boolean; 

var fos: TSHFileopStruct; 

begin 

FillChar(fos, SizeOf(fos),0); 

with fos do 

begin 

wFunc := FO_COPY; 
pFrom := PChar(FromFid+#0); 
pTo := PChar(ToFid+#0); 

fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR; 
end; 

Result := ShFileOperation(fos)=0; 
end; 


6- pour avoir un bon interface on doit cacher les deux composants «FileListBox1 >> et «FilterComboBox1 »comme 
suite: 

- clique par le bouton droit de la sourie sur le composant : « FileListBoxI » nomme « fichier >> et choisir dans le menu 
contextuel : « mettre en arriere plan » et mettre ce composant au-dessous du « DirectoryListBoxI >> (driverlist). 

- aussi, clique par le bouton droit de la sourie sur le composant : « FilterComboBoxI » et choisir dans le menu 
contextuel : « mettre en arriere plan » et mettre ce composant au-dessous du « DirectoryListBoxI » (driverlist). 

7- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu >> et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element archivage (du sous 
menu outils) 

Ensuite : on ecrit dans la procedure : fiche_archivage.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_archivage et on doit cliquer sur |Oui| pour cette demande de 
confirmation. 

Remarques : 

1- Pour que la fiche archivage se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_archivage >> et on clique sur |Ok 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 


❖ 


Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 

Cette fiche necessite la creation d'un dossier dans disque dur (nomme par exemple : archive2007) qui sera le 
dossier ou on va archiver notre base de donnees. 




4- FICHE INVENTAIRE 


Fiche® Jnventciire 



M Ajuster preparer J~L £ ermer 



N umero 

D ate_inventaire 

R esponsable 

D uree 

- 


1 

1 2/03/2006 

chef service stock 

3 jours 


— 

► 

2 

02/02/2007 

chef service stock 

2 jours 


= 








-Hi* 



N um_inv 

R ef_prod 

Q te_theorique 

Qte_reelle 

ecart 


► 

2 

1 

85 

84 

1 



2 

2 

32 

30 

2 



2 

3 

30 

38 

-8 



2 

4 

31 

25 

6 



2 

5 

21 0 

21 0 

0 






\ 
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1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name» le nom:« fiche_inventaire». 
Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer l’unite:« 
inventaire» 

2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

bitbtnl 

kind 

bkclose 

speedbuttonl 

caption 

Preparer 

glyph 

(choisissez une image adequate) 

speedbutton2 

caption 

ajuster 

glyph 

(choisissez une image adequate) 

BDE 

Tablet 

Databasename 

Commerce 

Tablename 

inventaire 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablet 

Controlebd 

Dbgridl 

Datasource 

Dataourcel 

BDE 

Table2 

Databasename 

Commerce 

Tablename 

Ligne_inventaire 

Active 

True 

Master Source 

datasourcel 

Master Field 

Clique sur « num_inv » et clique sur « numero_i »et clique sur Ajouter et clique sur Ok 

Accesbd 

Datasource2 

Dataset 

Table2 

Controlebd 

Dbgrid2 

Datasource 

Dataource2 

BDE 

Table3 

Databasename 

Commerce 

Tablename 

produit 

Active 

True 


3- inserer le champ calcule « ecart >> qui represente la difference entre le stock theorique et le stock reel comme 
suite : 

On double clique sur le composant table2 « lignejnventaire » 

Ensuite : on clique droit sur la petite fenetre et on clique sur « ajouter tous les champs ». 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « ecart » et on choisit le type du champ : « float » et on clique sur 
Ensuite : on clique sur le composant table2 et dans son inspecteur d’objet on clique sur I’ongles « evenements ». 
Ensuite : on double clique a droite de I’evenement « oncalcfields » et on ecrit dans la procedure : 
table2.fieldbyname(‘ecart’).asfloat := table2.fieldbyname(‘qte_theorique’).asfloat - 
table2.fieldbyname(‘qte_reelle’).asfloat ; 



4- on prepare I’inventaire par un double clic sur le speedbuttonl « preparer » et on ecrit dans sa procedure : 
(Supprimer le begin et end de la procedure et coller tous le code source suivant) 

var trouver : boolean; 
begin 

table2.first; 
trouver:=false; 
while not(table2.eof) do 
begin 

if table2.fieldbyname('ref_prod , ).asinteger=table3.fieldbyname( , reference , ).asinteger then 

trouver:=true; 

table2.next; 

end; 

if trouver then 

showmessage('inventaire deja prepare') 

else 

begin 

table3.first; 

while not(table3.eof)do 
begin 

table2.append;// on copie les produits de la table produit vers la table lignejnvertaire. 

table2.FieldByName(‘ref_prod').asinteger:=table3.FieldByName('reference’).asinteger; 

table2.FieldByName('qte_theorique').asfloat:=table3.FieldByName('qte_stock').asfloat; 

table2.post; 

table3.next; 

end; 

end; 

end; 
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5- apres avoir saisie les qte_reelle de chaque produit, on ajuste le stock sur ordinateur (la quantite_stock sera 
done la quantite reelle) par un double clic sur le speedbutton2 « ajuster » et on ecrit dans sa procedure : 

table3.first; 

table2.first; 

while not(table3.eof)do 
begin 

table3.edit; 

table3.FieldByName('qte_stock , ).asfloat:=table2.FieldByName('qte_reelle').asfloat; 

table3.post; 

table2.next; 

table3.next; 

end; 

table3.refresh; 


En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 
6- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu >> et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element inventaire (du sous 
menu outils) 

Ensuite : on ecrit dans la procedure : fichejnventaire.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fichejnventaire et on doit cliquer sur |Ou]] pour cette demande de 
confirmation. 


Remarques : 

1- Pour que la fiche inventaire se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fichejnventaire >> et on clique sur |Ok 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 


❖ 


Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


•i- FICHE CLOTURE 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name» le nom:« fiche_Cloture». 

Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer l’unite:« Cloture» 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

speedbuttonl 

caption 

Vider Table Facture Achat 

glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\trash.bmp 

speedbutton2 

caption 

Vider Table Ligne Achat 

glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\trash.bmp 

speedbutton3 

caption 

Vider Table Facture Vente 

glyph 

C:\Program Files\Fichiers communsYBorland SharedYlmagesYButtons\trash.bmp 

speedbutton4 

caption 

Vider Table Ligne Vente 

glyph 

C:YProgram FilesVFichiers communsYBorland SharedYlmagesYButtons\trash.bmp 
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speedbutton5 

caption 

Vider Table Inventaire 



glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\trash.bmp 


speedbutton6 

caption 

Vider Table Ligne Inventaire 



glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\trash.bmp 


Bitbtnl 

kind 

bkclose 

BDE 

Tablel 

Databasename 

Commerce 



Tablename 

Facture_achat 



Active 

True 


Table2 

Databasename 

Commerce 



Tablename 

Ligne_achat 



Active 

True 


Table3 

Databasename 

Commerce 



Tablename 

Facture_vente 



Active 

True 


Table4 

Databasename 

Commerce 



Tablename 

Ligne_vente 



Active 

True 


Table5 

Databasename 

Commerce 



Tablename 

Inventaire 



Active 

True 


Table6 

Databasename 

Commerce 



Tablename 

ligne_inventaire 



Active 

True 


3- double clique sur le « speedbuttonl » et ecrire dans sa procedure : 

While not (tablel.eof) do 
tablel .delete ; 

showmessagefla table facture achat est videe'); 

- Tapez FI 2 pour retourner a la fiche. 

4- double clique sur le « speedbutton2 » et ecrire dans sa procedure : 

While not (table2.eof) do 
Table2.delete ; 

showmessagefla table ligne achat est videe'); 

- Tapez FI 2 pour retourner a la fiche. 

5- double clique sur le « speedbutton3 » et ecrire dans sa procedure : 

While not (table3.eof) do 
Table3.delete ; 

showmessagefla table facture vente est videe'); 

- Tapez FI 2 pour retourner a la fiche. 

6- double clique sur le « speedbutton4 » et ecrire dans sa procedure : 

While not (table4.eof) do 
Table4.delete ; 

showmessagefla table ligne vente est videe'); 

- Tapez FI 2 pour retourner a la fiche. 

7- double clique sur le « speedbuttonS » et ecrire dans sa procedure : 

While not (table5.eof) do 
Table5.delete ; 

showmessagefla table inventaire est videe'); 

- Tapez FI 2 pour retourner a la fiche. 

8- double clique sur le « speedbutton6 » et ecrire dans sa procedure : 

While not (table6.eof) do 
Table6.delete ; 

showmessagefla table ligne inventaire est videe'); 

- Tapez FI 2 pour retourner a la fiche. 


En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 

9- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element Cloture (du sous menu 
outils) 
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Ensuite : on ecrit dans la procedure : fiche_cloture.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_cloture et on doit cliquer sur |Oui| pour cette demande de 
confirmation. 

Remarques : 

1- Pour que la fiche cloture se place au milieu de I’ecran si on I’appel lors du lancement de l‘execution du logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_cloture » et on clique sur |Ok 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 




Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


4- FICHE A PROPOS 



1- on peut inserer cette fiche par le menu Delphi 


Fichier ■=> nouveau ■=> fiche ■=> boite a propos ■=> Ok 


Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name»le nom:«fiche_apropos». 

Ensuite : (le menu Delphi): fichier oenregistrer, et dans le dossier « c:\commerce\source » nommer l’unite:«apropos» 
Ensuite : on ecrit le texte qu’on veut dans les labels et modifier la couleur et la taille des labels par leurs proprietes 
« FONT ». (Cette fiche est la carte visite du logiciel). 


2- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ok 


Ensuite : on double clique sur le composant « mainmenul >> et double clique sur son element « a propos » (du sous 
menu « ? ») 

Ensuite : on ecrit dans la procedure : fiche_apropos.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la 
confirmation de la liaison entre la fiche_menu et la fiche_apropos et on doit cliquer sur 
confirmation. 


oui 


pour cette demande de 


L’image de Logo : 

1- dans la propriete picture du composant « imagel >> on clique sur le bouton |Charger| et chercher I’image voulue. 
(Delphi propose quelques images dans : 

« C:\Program Files\Fichiers communs\Borland Shared\lmages\ Splash\256Color ». 


2- en fin clique sur Ouvrir ensuite sur Ok 


3- pour que I’image occupe toute la surface de son cadre on modifie sa propriete : Autosize ■=> true. 

4- pour que I’image s’agrandie si elle a une taille plus petite que la surface de son cadre on modifie sa propriete 
Stretch ■=> true. 
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i- PREPARATION DU LOGICIEL 

1- creer dans le lecteur C du disque dur un nouveau dossier nomme : scolarite (pour stocker le logiciel). 

2- creer dans le dossier scolarite 2 autres dossiers nommes : base (pour stocker la BD) et source (pour stocker le code 
source) 

3- lancer le BDE de Delphi par : (le menu Delphi) outils ■=> module base de donnees. 

4- creer un nouveau alias pour notre logiciel par : (le menu BDE) outils ■=> gestionnaire d’alias 
Ensuite : clique sur I’option : « ® afficher seulement les alias publics » 


Ensuite : clique sur le bouton : |Nouveau 
Ensuite : ecrire dans : 


Alias de la base : scolarite 
Chemin d’acces : c:\scolarite\base 


Ensuite clique sur fDk 


En fin clique sur |Oui| pour que cet alias soit un alias public. 

5- creer dans cet alias les tables suivantes : N’oubliez pas de les enregistrer dans I’alias « scolarite 


» 


Table: etudiant 


Table : matiere 


Table : resultat 


Champ 


Type 


Taille 


index 


Champ 

Type 

Taille 

index 

Champ 

Type 

Taille 

index 

Reference_m 

i 


* 

Code_etudiant 

i 


* 

Designation_m 

a 

20 


Ref_matiere 

i 


* 

Coefficient 

i 



Trimestre 

i 


* 

Ref_specialite 




Devoir 

n 







Composition 

n 



Table : classe 




Observation 

a 

15 


Champ 

Type 

Taille 

index 





Ref_classe 

i 


* 

Table protection 




Designation c 

a 

20 


Champ 

Type 

Taille 

index 

Ref_Specialite 

i 



Password 

A 

20 

* 

Table : specialite 





Champ 

Type 

Taille 

Index 





Ref_Specialite 

i 


* 





Designation_s 

a 

20 







Code_e 

Nom_e 

Prenom_e 

Date_naissance 

Lieu 

Adresse 

Doublant 

Photo 

Ref classe 


i 

A 

A 

D 

A 

A 

A 

G 

i 


20 

20 

15 

30 

3 


Table : professeur 


* 


Champ 

Type 

Taille 

index 

Code_p 

i 


* 

Nom_p 

a 

20 


Prenom_p 

a 

20 


Diplome 

Ref_Matiere 

a 

i 

30 




-81 - 


Ayyrendre Delyhi7 par Vexemple 


Chayitre 3 : Logiciel gestion scolarite 


FICHE MENU 


i i< lie menu 




Fichier edition consultation etats stetistiques outils ? 


A •<> 53 


E 


m 3K£ tl 


■s 


r 


- ■* * 




LOGICIEL GESIIOW SCOLARITE — 


1- Dans I’environnement Delphi choisir dans le menu : Fichier ■=> nouvelle application. 

Ensuite : inserer dans la fiche de ce nouveau projet (nouveau logiciel) un composant « mainmenu » 
Ensuite : double clique sur ce composant et inserer le menu principal suivant : 


Fichier 

Edition 

Consultation 

Etats 

Statistiques 

Outils 

? 

etudiant 

professeur 

specialite 

matiere 

Bulletin 

s 

Etudiants 

impressions 

scolarite 

Archivage 

Protection 

Cloture 

A propos 


quitter 


❖ Chaque fiche (ainsi que son unite) dans le logiciel doit etre nominee par un nom significatif. pour notre fiche 
actuelle (le menu general du projet) on procede comme suite : 

Cliquer sur cette fiche (eviter le composant mainmenul) et dans son inspecteur d’objet ecrire dans la propriety : 
name ■=> fiche_menu. 

Clique dans le menu Delphi sur: fichier oen registrar sous, et dans le dossier «c:\scolarite\source» nommer I’unite : 
«menu». 


Clique dans le menu Delphi sur: fichier ■=> enregistrer le projet sous, et nommer le projet : scolarite (dans 
c:\scolarite\source) 

2- inserer un composant ToolBar (palette Win32 ). 

Ensuite : clique droit sur ce composant et choisir « nouveau bouton » ou « nouveau separateur » 

Ensuite : repeter le clic droit pour inserer 13 boutons qui represented les elements du menu principal du logiciel; 

Et 6 separateurs pour les grands elements du menu (fichier, edition, consultation, ...) 

Ensuite : inserer un composant imagelist (palette Win32 ) 

Ensuite : double clique sur ce composant et clique sur le bouton |Ajouter| pour choisir la gamme des images de notre 
logiciel dans le chemin : « C:\program files\fichiers communs\borland shared\images\button » 


Ensuite : apres le chois de 13 images adequates aux 13 boutons on clique sur pk 


Ensuite : on clique sur le « mainmenul » et dans son inspecteur d’objet : propriety images ^imagelistl 

Ensuite : on double clique sur le « mainmenul » et chaque element de ce menu sera lie avec une image adequate par 

sa propriete : « imageindex » 

Enfin: on ferme la petite fenetre du menu et on clique sur le composant « toolbarl » et dans sa propriete : 

Images ■=> imagelistl 

(Chaque bouton du «toolbar1» peut avoir une image adequate par le choix de cette image dans la propriete 
« imageindex » de ce bouton). 

3- pour expliquer le role de chaque bouton on clique sur ce dernier on ecrit dans sa propriete : 

« Hint » I’explication adequate, ensuite et pour voir cette explication on choisit dans sa propriete : showHint ■=> true 


Remarque : 

Pour faire defiler le nom du logiciel dans cette fiche : 

1 - on insere un composant timer (palette systeme) 
et sa propriete interval = 1 0 
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2- on insere un composant Labell 

propriete :caption = LOGICIEL GESTION SCOLARITE 
propriety : font (essayez de bien traiter le texte). 

3- on double clique sur le timer et on ecrit : 

if labell. left > -250 then 
labell. Ieft:= labell .left-1 
else 

labell. left :=700 ; 

// Les intervals d’affichage du labell peuvent varier selon la taille d’ecriture (pas surement entre -250 et 700). 
Programmation du sous menu « QUITTER » 

On double clique sur le composant « mainmenul » et double clique sur son element quitter (du sous menu fichier). 
Ensuite : on ecrit dans la procedure : close; 

Ensuite : clique sur la fiche_menu et double clique a droite de son evenement « onclosequery » et ecrire dans sa 
procedure : 

if messagedlg('voulez vous quitter le logiciel?',mtconfirmation,[mbyes,mbno],0)=mryes then 
begin 

canclose:=true; 

application.terminate; 

end 

else 

canclose:=false; 

Resultat: 

Cette technique assure I’affichage de la fenetre de confirmation de sortie du logiciel pour n’importe quel type de 
tentative de fermeture du logiciel : 

le menu : fichier ■=> quitter. 

Par clavier en utilisant les touches : Alt + F4 

En cliquant sur la case termer en haut et a droite de la fenetre. 

4- Pour que la fiche menu occupe tous I’espace de I’ecran lors du lancement de 1‘execution du logiciel : 

On clique sur cette fiche_menu (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « Window state ■=> wsmaximized » 

5- On enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 


L’image de I’arriere plan : 

1- inserer un composant « imagel » de la palette « supplement ». 

2- dans la propriete Picture sur ce composant « imagel » on clique sur le bouton |Charger| et chercher I’image voulue. 
(Exemple du chemin de I’image : C:\Program Files\Fichiers communs\Borland Shared\lmages\Splash\256Color) 


3- en fin clique sur |Ouvrir| ensuite sur |Ok 


4- pour que I’image occupe toute la surface de son cadre on modifie sa propriete : Autosize ■=> true. 

5- pour que I’image s’agrandie si elle a une taille plus petite que la surface de son cadre on modifie sa propriete 
Stretch ■=> true. Aussi modifier sa propriete : align ■=> alClient. 


4- LA FICHE ETUDIANT 


fiche_etu diant 

MAJ Consultation I Statistiques 




► 

►1 

c 


Code 


Nom 

|mohamed 
Prenom 
| amine 

Date_naissance 
1 12/05/1 980 
Lieu 


| setif 



JL Fermer 


j^j Ajouter 


i": Supprimer 


Modifier 


Enregistrer 


X Annuler 



1- Choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom : « fiche_etudiant ». 
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Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : 
« etudiant » 


2- Inserer de la palette Win32 le composant Pagecontroll 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « MAJ » 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « Consultation » 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « Statistiques » 

3- clique sur I’ongles « MAJ » du composant « pagecontroll » et inserer dans son cadre interieur les composants 

suivants : 



Composant 

Propriete 

Valeur 

1 

"able 1 

Databasename 

scolarite 



Tablename 

etudiant 



Active 

True 


4- double clique sur le composant tablel et clique droit sur la petite fenetre et choisir dans la liste « ajouter tous les 
champs » 

5- glisser les champs un par un dans la fiche dans I’ordre de haut en bas (on peut les selectionner tous et les glisser 
en meme temps, c’est plus professionnel) 

6- Inserer de la palette Supplement 5 composants « Speedbutton » et ecrire dans la propriety de chacun 
respective ment : 

« Ajouter » « Supprimer » « Modifier » « Engersitrer » « Annuler » 

7- double clique sur le « speedbuttonl » (ajouter) et ecrire dans sa procedure : 

tablel .append ; // tablel .append = tablel .last + tablel .insert ■=> c’est inserer un nouveau enregistrement en fin de la 

table. 


dbeditl .setfocus ; 

8- tapez FI 2 et double clique sur le composant « speedbutton2 » (Supprimer) et ecrire dans sa procedure : 

if messagedlg(‘ voulez vous supprimer cet enregistrement’ ,mtconfirmation,[mbyes,mbno],0)=mryes then 
tablel .delete ; 

9- tapez FI 2 et double clique sur le composant « speedbutton3 » (Modifier) et ecrire dans sa procedure : 

tablel .edit ; 
dbeditl .setfocus ; 

10- tapez FI 2 et double clique sur le composant « speedbutton4 » (Enregistrer) et ecrire dans sa procedure : 

tablel .edit ; 
tablel .post ; 

11- tapez FI 2 et double clique sur le composant « speedbutton5 » (Annuler) et ecrire dans sa procedure : 

tablel .edit ; 
tablel .cancel ; 

12- Inserer en haut de cette page un composant « DbNavigateurl » de la palette « ControleBD ». 

Ensuite : Choisir dans sa propriety : datasource ■=> datasourcel . 

Ensuite : choisir dans sa propriety VisibleButtons les boutons first, prior, next, last, refresh ; mettre visible= true. 

13- Pour inserer les images des etudiants dans le champ « Photo » de la tablel (table etudiant) a partir d’un fichier 
image stocke dans le disque dur (generalement on doit scanner les images des etudiants au paravant) on procede 
comme suite : 


inserer de la palette « dialogues » un composant « OpenPictureDialogl ». 

Inserer de la palette « supplement » un composant « speedbutton » et choisir dans sa propriety 

« glyph » I’image : C:\ProgramFiles\Fichierscommuns\BorlandShared\Images\Buttons\mailpict.bmp 

Double clique sur ce « speedbutton » et ecrire dans sa procedure : 

OpenPictureDialogl .execute; 

dbimagel .picture.loadfromfile(OpenPictureDialog1 .filename); 


14- Pour mettre le curseur du clavier automatiquement dans le « dbeditl » pour faciliter la saisie du code de 
I’etudiant on clique sur le composant « tablel » et dans son inspecteur d’objet double clique a droite de son 
evenement : « afterinsert » on ecrit dans sa procedure : 

dbeditl .setfocus ; 

Ensuite on peut controler la manipulation du clavier et calculer I’age de I’etudiant par : 

inserer un composant Iabel9 a droite du «dbedit4» et supprimer le texte de sa propriety 
« caption ». 

clique sur le composant dbeditl . 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk return then 
Dbedit2.setfocus ; 

tapez FI 2 et clique sur le composant dbedit2. 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 
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If key = vk_return then 
Dbedit3.setfocus ; 

tapez FI 2 et clique sur sur le composant Dbedit3. 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vkreturn then 
Dbedit4.setfocus ; 

tapez FI 2 et clique sur sur le composant Dbedit4. 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

(Supprimer le begin et end de la procedure et coller tous le code source suivant) 

var age : integer ; 
begin 

If key = vk return then 
Begin 

Tablel.edit; 

Tablel.post; 

Age:=trunc((date-table1 .fieldbyname(‘date_naissance’).asdatetime)/365); 
Label9.caption:=inttostr(age)+’ ans’; 

If age <17 then 

Showmessage(‘etudiant mineur’); 

If age >60 then 

Showmessage(‘etudiant retrete’); 

Dbedit5.setfocus ; 

End; 

End; 

tapez FI 2 et clique sur le composant Dbedit5. 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk return then 
Dbedit6.setfocus ; 

tapez FI 2 et clique sur sur le composant Dbedit6. 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk return then 
Dbcomboboxl.setfocus ; 

tapez FI 2 et clique sur sur le composant Dbcomboboxl . 

Double clique sur son evenement « OnKeyDown » et ecrire dans sa procedure : 

If key = vk return then 
Dbedit8.setfocus ; 

15- clique sur I’ongles « Consultation » du composant « pagecontroll » et inserer dans son cadre interieur les 
composants suivants : 


Palette 

Composant 

Propriete 

valeur 

controlebd 

Dbgridl 

Datasource 

Datasource 1 

Supplement 

Speedbutton6 

Caption 

Previsualiser 

Glyph 

C:\Program Files\Fichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Speedbutton7 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 


16- Pour imprimer la liste des etudiants on procede comme suite : 

■ Dans le menu Delphi on choisit : fichier ■=> nouveau 

■ Dans la boite de dialogue qui s’affiche on choisit I’onglet « affaires » et dans ce dernier on choisit I’icone 


« 


expert quick report » et clique sur le bouton DK 


Dans I’assistant qui s’affiche on clique sur le bouton llancer I’expert 


Choisir dans la liste « alias ou repertoire » I’alias « scolarite 
On choisit dans la liste « nom de table » la table a imprimer (etudiant). 
On clique sur le bouton 


» 


pour faire passer tous les champs adroite (pour les imprimer tous). 


Ensuite clique sur le bouton Terminer 


17- Ensuite : on clique sur cette nouvelle fiche en evitant le clic sur le composant « quickrepl » et dans sa propriety 
« name » on donne le nom « fiche_etat_etudiant» a cette fiche. 

Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : 
« etat etudiant » 


18- On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche « fiche, etudiant» et on clique sur |Ok 


Ensuite : pour programmer la previsualisation de notre liste on double clique sur le bouton « previsualiser » et on ecrit 
dans sa procedure : fiche_etat_etudiant.quickrep1 .preview ; 
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Ensuit : on tape FI 2 pour retourner a la fiche et pour programmer I’impression de notre liste on double clique sur le 
bouton « imprimer » et on ecrit dans sa procedure : fiche_etat_etudiant.quickrep1 .print ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_etudiant et la fiche_etat_etudiant et on doit cliquer sur |Oui| pour cette demande de 
confirmation. 

16- On ajoute aussi les options du filtrage et du trie dans cette fiche par I’insertion des composants suivants (toujours 
dans I’ongles consultation) : 



8- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure (onchange): 

if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[Nom_e]=‘ + #39 + editl. text + + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 

17- On tape la touche FI 2 (retour a la fiche), et pour faire le trie de la table etudiant : clique sur le composant dbgridl. 
Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements » 

Ensuite : on double clique a droite de I’evenement « ontitleclick » et on introduit le code source suivant : 

If column. index = 0 then 
Tablel. indexname :=’cT ; 

If column. index = 1 then 
Tablel. indexname :=’c2’ ; 

If column. index = 2 then 
Tablel. indexname :=’c3’ ; 

If column. index = 3 then 
Tablel. indexname :=’c4’ ; 

If column. index = 4 then 
Tablel. indexname :=’c5’ ; 

If column. index = 5 then 
Tablel. indexname :=’c6’ ; 

If column. index = 6 then 
Tablel. indexname :=’c7’ ; 

If column. index = 7 then 
Tablel. indexname :=’c8’ ; 


Remarque importante : 

Le trie et le filtrage dans une table ne reussissent que si on a defini des index secondaires sur chaque champ trie ou 
filtre. 


Pour inserer des index secondaires dans les champs de la table etudiant il faut que cette table ne soit pas en cours 
d’utilisation, done sa propriety : active ■=> false. 

Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils ■=> module base de donnees. 

Ensuite : on ouvre la table par : (le menu) fichier ■=> ouvrir ■=> table et on choisit I’alias « scolarite » et la 
table « etudiant ». 


Ensuite : on clique dans le menu du BDE sur : table ■=> restructurer. 

Ensuite : on choisit dans la liste des choix « proprietes d e la tab le » I’option « index secondaires » 

Ensuite : on clique pour chaque champ sur le bouton |Definir| et on fait passer ce champ a droite, on clique sur le 
bouton |OK] et on propose un nom symbolique a cet index secondaire (cl pour le champ code_e, c2 pour le champ 
nom_e,...etc.) 
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Remarque : le champ photo ne peut pas avoir un index secondaire puisque c’est un champ de type graphique (Un 
champ de type graphique ne pe ut etre utilis e dans une recherche ou un trie ou un filtrage). 

Ensuite : on clique sur le bouton [enregistrer] et on retourne a I’environnement Delphi. 

Enfin : on reactive le composant tablel par sa propriety : active ■=> true. 

18- clique sur I’ongles « Statistiques » du composant « pagecontroll » et inserer dans son cadre interieur les 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Queryl 

databasename 

scolarite 

Sql 

Select Doublant, count(Doublant) as nombre 
from etudiant group by Doublant 

Active 

True 


controlebd 


DBchartl (Inserer ce composant sur le composant « pagecontrolel » dans la page « statistiques » ) 
Et double clique sur ce composant « dbchartl » 

Et clique sur l’ongle inferieur « serie » 


Et clique sur le bouton Ajouter 


Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur l’ongle superieur « serie » 

Et clique sur l’ongle « source de donnees » 

Et choisir dans la liste l’element « dataset » 

Et choisir dans la liste dataset l’element « query 1 » 

Et choisir dans la liste « libelle » l’element « doublant » 
Et choisir dans la liste « sectoriel » l’element « nombre » 


A la fin clique sur Fermer 


Remarque : 

Pour que les statistiques affichent toujours les dernieres modifications automatiquement (rafraichissement automatique 
des donnees du queryl) : Clique sur le composant tablel et Dans son inspecteur d’objet double clique a droite de son 
evenement « afterpost » (cet evenement se declanche automatiquement si on enregistre des donnees sur notre tablel). 
Ensuite : ecrire le code source suivant dans la procedure correspondante : 

Queryl .close ; 

Queryl .active :=true ; 

19- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur |Ok. 

Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element etudiant (du sous menu 
fichier) 

Ensuite : on ecrit dans la procedure : fiche_etudiant.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_etudiant et on doit cliquer sur 0 pour cette demande de confirmation. 

Remarques : 

1- Pour que la fiche_etudiant se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_etudiant » et on clique sur |Ok. 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- On enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

❖ Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


i- FICHE MATIERE 


fic he__niatie re 


I - II a I 


M J Consultation 

Fi Itraq e 



FI ef matiere 

D e sign e t io n 

Coefficient 

FI ef specielite 


i 

mathes 

5 

2 


2 

physique 

4 

3 

► 

3 

chemie 


4 

1 


4 

sciences 

3 

2 


5 

sport 

1 

1 


1 1 F're i s i_j a 1 i s e r 


| 1^ | 

1 mprimer 


j Fermer 




- 
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1 - choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom : « fiche_matiere ». 

Ensuite : choisir dans le menu Delphi : fichier ^enregistrer, et dans le dossier «c:\scolarite\source» nommer I’unite: 
«matiere» 

2- Inserer de la palette Win32 le composant Pagecontroll 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « MAJ » 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « Consultation » 

3- Clique sur I’ongles « MAJ » du composant « pagecontroll » et inserer dans son cadre interieur les composants 
suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

Scolarite 

Tablename 

matiere 

Active 

True 


4- double clique sur le composant tablel et clique droit sur la petite fenetre et choisir dans la liste « ajouter tous 
les champs » 

5- glisser les champs un par un dans la fiche dans I’ordre de haut en bas (on peut les selectionner tous et les 
glisser en meme temps, c’est plus professionnel) 

6- Inserer de la palette Supplement 5 composants « Speedbutton » et ecrire dans la propriety de chacun 
respective ment : « Ajouter » « Supprimer » « Modifier » « Engersitrer » « Annuler » 

7- double clique sur le « speedbuttonl » (ajouter) et ecrire dans sa procedure : 

tablel .append ; 

// tablel .append = tablel. last + tablel .insert ■=> c’est inserer un nouveau enregistrement en fin de la table, 
dbeditl.setfocus ; 

8- taper FI 2 et double clique sur le composant « speedbutton2 » (Supprimer) et ecrire dans sa procedure : 

if messagedlg(‘ voulez vous supprimer cet enregistrement’ ,mtconfirmation,[mbyes,mbno],0)=mryes then 
tablel .delete ; 

9- taper FI 2 et double clique sur le composant « speedbutton3 » (Modifier) et ecrire dans sa procedure : 

tablel .edit ; 
dbeditl .setfocus ; 

10- taper FI 2 et double clique sur le composant « speedbutton4 » (Enregistrer) et ecrire dans sa procedure : 

tablel .edit ; 
tablel .post ; 

11- taper FI 2 et double clique sur le composant « speedbutton5 » (Annuler) et ecrire dans sa procedure : 

tablel .edit ; 
tablel .cancel ; 

12- Inserer en haut de cette page un composant « DbNavigateurl » de la palette « ControleBD ». 

Ensuite : Choisir dans sa propriety : datasource ■=> datasourcel . 

Ensuite : choisir dans sa propriety VisibleButtons les boutons first, prior, next, last, refresh ; mettre visible= true. 

13- Clique sur I’ongles « Consultation » du composant « pagecontroll » et inserer dans son cadre interieur les 
composants suivants : 


Palette 

Composant 

Propriete 

valeur 

controlebd 

Dbgridl 

Datasource 

Datasourcel 

Supplement 

Speedbutton6 

Caption 

Previsualiser 

Glyph 

C:\Program Files\Fichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Speedbutton7 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 


14 - 


Pour imprimer la liste des matieres on procede comme suite : 

Dans le menu Delphi on choisit : fichier ■=> nouveau. 

Dans la boite de dialogue qui s’affiche on choisit I’onglet « affaires » et dans ce dernier on choisit I’icone 


« 


expert quick report » et clique sur le bouton Ok. 


Dans I’assistant qui s’affiche on clique sur le bouton jlancer I’expert 


Choisir dans la liste « alias ou repertoire » I’alias « scolarite » 

On choisit dans la liste « nom de table » la table a imprimer (matiere). 
On clique sur le bouton 


» 


pour faire passer tous les champs a droite (pour les imprimer tous). 


Ensuite clique sur le bouton [Terminer 


15- Ensuite : on clique sur cette nouvelle fiche en evitant le clic sur le composant « quickrepl » et dans sa propriety 
« name » on donne le nom « fiche_etat_matiere» a cette fiche. 

Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : 
« etat matiere » 
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1 6- On tape Shift+FI 2 pour afficher la liste des fiches et on choisit la fiche « fiche_matiere» et on clique sur |Ok. 
Ensuite : pour programmer la previsualisation de notre liste on double clique sur le bouton « previsualiser » et on ecrit 
dans sa procedure : fiche_etat_matiere.quickrep1. preview ; 

Ensuit : on tape FI 2 pour retourner a la fiche et pour programmer I’impression de notre liste on double clique sur le 
bouton « imprimer » et on ecrit dans sa procedure : fiche_etat_matiere.quickrep1 .print ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fichejnatiere et la fiche_etat_matiere et on doit cliquer sur |Oui| pour cette demande de 
confirmation. 

17- On ajoute aussi les options du filtrage et du trie dans cette fiche par I’insertion des composants suivants 
(toujours dans I’ongles consultation) : 



18- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure (onchange): 

if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[designation_m]=‘ + #39 + editl .text + “*’ + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 

19- On tape la touche FI 2 (retour a la fiche), et pour faire le trie de la table matiere : clique sur le composant 
dbgridl. 

Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements » 

Ensuite : on double clique a droite de I’evenement « ontitleclick » et on introduit le code suivant : 

If column. index = 0 then 
Tablel. indexname :=’cT ; 

If column. index = 1 then 
Tablel. indexname :=’c2’ ; 

If column. index = 2 then 
Tablel. indexname :=’c3’ ; 


Remarque importante : 

Le trie et le filtrage dans une table ne reussissent que si on a defini des index secondaires sur chaque champ trie ou 
filtre. 


Pour inserer des index secondaires dans les champs de la table matiere il faut que cette table ne soit pas en cours 
d’utilisation done sa propriety : active ■=> false. 

Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils ■=> module base de donnees. 

Ensuite : on ouvre la table par : (le menu) fichier ■=> ouvrir ■=> table et on choisit I’alias « scolarite » et la table « matiere ». 
Ensuite : on clique dans le menu du BDE sur : table ^restructures 

Ensuite : on choisit dans la liste des choix « proprietes d e la tab le » I’option « index secondaires » 

Ensuite : on clique pour chaque champ sur le bouton |Definir| et on fait passer ce champ a droite, on clique sur le 
bouton et on propose un nom symbolique a cet index secondaire (cl pour le champ reference_m, c2 pour le 
champ designations, ...etc.) 

Ensuite : on clique sur le bouton |enregistrer| et on retourne a I’environnement delphi. 

Enfin : on reactive le composant tablel par sa propriety : active ■=> true. 

20- Cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 

On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ^k. 

Ensuite : double clique sur le composant « mainmenul » et double clique sur son element matiere (sous menu fichier) 
Ensuite : ecrire dans la procedure : fiche_matie r e-showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_matiere et on doit cliquer sur Bui pour cette demande de confirmation. 
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Remarques : 

1- Pour que la fiche matiere se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fiche_matiere » et on clique sur |Ok 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position o poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 


❖ 


Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


4- FICHE PROFESSEUR 


fic he® _p rofesse u r 


i- I' pi 


MAJ 


Consultation ! 


1 


Filtrag i 


i ^l i Rrevisueliser 


^ I 


m p r i m e r 


■ |_ Fermer 



Code prof 

M orn 

Prenom 

D iplome 

Fi ef matiere 


-H-S- 

► 

i 

E! enhadi 

mourad 

ingenieur 

i 




2 

kamel 

ahmed 

D e lj -a 

2 




3 

nedjib 

souhil 

licence 

3 
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1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom : « fiche_professeur ». 

Ensuite : choisir dans le menu Delphi : fichier <=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : 
« professeur » 

2- Inserer de la palette Win32 le composant Pagecontroll 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « MAJ » 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « Consultation » 

3- clique sur I’ongles « MAJ » du composant « pagecontroll » et inserer dans son cadre interieur les 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

scolarite 

Tablename 

professeur 

Active 

True 


4- double clique sur le composant tablel et clique droit sur la petite fenetre et choisir dans la liste « ajouter tous 
les champs » 

5- glisser les champs un par un dans la fiche dans I’ordre de haut en bas (on peut les selectionner tous et les 
glisser en meme temps, c’est plus professionnel). 

6- Inserer de la palette Supplement 5 composants « Speedbutton » et ecrire dans la propriety de chacun 
respectivement : 

« Ajouter » « Supprimer » « Modifier » « Engersitrer » « Annuler » 

7- double clique sur le « speedbuttonl » (ajouter) et ecrire dans sa procedure : 

tablel .append ; 

// tablel .append = tablel. last + tablel .insert >=> c’est inserer un nouveau enregistrement en fin de la table, 
dbeditl.setfocus ; 

8- tapez FI 2 et double clique sur le composant « speedbutton2 » (Supprimer) et ecrire dans sa procedure : 

if messagedlg(‘ voulez vous supprimer cet enregistrement’ ,mtconfirmation,[mbyes,mbno],0)=mryes then 
tablel .delete ; 

9- tapez FI 2 et double clique sur le composant « speedbutton3 » (Modifier) et ecrire dans sa procedure : 

tablel .edit ; 
dbeditl.setfocus ; 

10- tapez FI 2 et double clique sur le composant « speedbutton4 » (Enregistrer) et ecrire dans sa procedure : 

tablel .edit ; 
tablel .post ; 

11- tapez FI 2 et double clique sur le composant « speedbutton5 » (Annuler) et ecrire dans sa procedure : 

tablel .edit ; 
tablel .cancel ; 
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12- Inserer en haut de cette page un composant « DbNavigateurl » de la palette « ControleBD ». 

Ensuite : Choisir dans sa propriety : datasource ■=> datasourcel . 

Ensuite : choisir dans sa propriety VisibleButtons les boutons first, prior, next, last, refresh ; mettre visible= true. 

13- clique sur I’ongles « Consultation » du composant « pagecontroll » et inserer dans son cadre interieur les 
composants suivants : 


Palette 

Composant 

Propriete 

valeur 

controlebd 

Dbgridl 

Datasource 

Datasourcel 

Supplement 

Speedbutton6 

Caption 

Previsualiser 

Glyph 

C:\Program Files\Fichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Speedbutton7 

Caption 

Imprimer 

Glyph 

C:\Program Files\Fichiers communsVBorland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 


14- Pour imprimer la liste des professeurs on procede comme suite : 
a- Dans le menu Delphi on choisit : fichier ■=> nouveau 

b- Dans la boite de dialogue qui s’affiche on choisit I’ ong let « affaires » et dans ce dernier on choisit 


I’icone « expert quick report » et clique sur le bouton Ok 


c- 

d- 

e- 

f- 

g- 


Dans I’assistant qui s’affiche on clique sur le bouton |lancer I’expert 


Choisir dans la liste « alias ou repertoire » I’alias « scolarite ». 

On choisit dans la liste « nom de table » la table a imprimer (professeur), 
On clique sur le bouton 


» 


pour faire passer tous les champs a droite (pour les imprimer tous). 


Ensuite clique sur le bouton 


Terminer 


Ensuite : on clique sur cette nouvelle fiche en evitant le clic sur le composant « quickrepl » et dans sa propriety 
« name » on donne le nom « fiche_etat_professeur » a cette fiche. 

Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : 
« etat_ professeur » 


15- On tape Shift+F12 pour 
sur 


Ok 


afficher la liste des fiches et on choisit la fiche « fiche_professeur» et on clique 


Ensuite : pour programmer la previsualisation de notre liste on double clique sur le bouton « previsualiser » et on ecrit 
dans sa procedure : fiche_etat_professeur.quickrep1 .preview ; 

Ensuit : on tape FI 2 pour retourner a la fiche et pour programmer I’impression de notre liste on double clique sur le 
bouton « imprimer » et on ecrit dans sa procedure : fiche_etat_professeur.quickrep1 .print ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_professeur et la fiche_etat_professeur et on doit cliquer sur |Oui| pour cette demande de 
confirmation. 


16- (toujours dans I’ongles consultation) : 


Palette 

Composant 

Propriete 

valeur 

Standard 

Label 1 

Caption 

Filtrage 

Editl 

Text 



17- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure (onchange) : 

if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[nom_p]=‘ + #39 + editl. text + **’ + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 

18- On tape la touche FI 2 (retour a la fiche), et pour faire le trie de la table professeur : clique sur le composant 
dbgridl. 
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Ensuite : dans son inspecteur d’objet on clique sur I’ongles « evenements » 

Ensuite : on double clique a droite de I’evenement « ontitleclick » et on introduit le code source suivant : 

If column. index = 0 then 
Tablel.indexname :=’c1’ ; 

If column. index = 1 then 
Tablel.indexname :=’c2’ ; 

If column. index = 2 then 
Tablel.indexname :=’c3’ ; 

If column. index = 3 then 
Tablel.indexname :=’c4’ ; 

If column. index = 4 then 
Tablel.indexname :=’c5’ ; 


Remarque importante : 

Le trie et le filtrage dans une table ne reussissent que si on a defini des index secondaires les champs tries ou filtres. 
Pour inserer des index secondaires dans les champs de la table professeur il taut que cette table ne soit pas en cours 
d’utilisation done sa propriety : active ■=> false. 

Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils ■=> module base de donnees. 

Ensuite : on ouvre la table par : (le menu) fichier ■=> ouvrir ■=> table et on choisit I’alias « scolarite » et la 

table « professeur». 

Ensuite : on clique dans le menu du BDE sur table ^restructurer. 

Ensuite : on choisit dans la liste des choix « proprietes d e la tab le » I’option « index secondaires » 

Ensuite : on clique pour chaque champ sur le bouton |Definir| et on fait passer ce champ a droite, on clique sur le 

bouton ^K| et on propose un nom symbolique a cet index secondaire (cl pour le champ code_p, c2 pour le champ 
nom_p,...etc.) 

Ensuite : on clique sur le bouton |enregistrer| et on retourne a I’environnement delphi. 

Enfin : on reactive le composant tablel par sa propriety : active ■=> true. 

19- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element professeur (du sous menu 
fichier) 

Ensuite : on ecrit dans la procedure : fiche_professeur.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_professeur et on doit cliquer sur 0 pour cette demande de confirmation. 

Remarques : 

1- Pour que la fiche professeur se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_professeur » et on clique sur fDk 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier <=> tout enregistrer. 


❖ 


Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


i- FICHE SPECIALITE 



1 - choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom : « fiche_specialite ». 
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Ensuite : choisir dans le menu Delphi : fichier ■=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : 
« specialite» 

2- Inserer de la palette Win32 le composant Pagecontroll 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « MAJ & 
Consultation » 

Clique droit sur ce composant et clique sur « nouvelle page » et ecrire dans sa propriety caption « Statistiques » 

3- clique sur I’ongles « MAJ Consultation » du composant « pagecontroll » et inserer dans son cadre interieur les 


composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Table 1 

Databasename 

scolarite 

Tablename 

specialite 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablet 

BDE 

Table2 

Databasename 

scolarite 

Tablename 

classe 

Active 

True 

Accesbd 

Datasource2 

Dataset 

Table2 

controlebd 

Dbgridl 

Datasource 

Datasourcel 

Dbgrid2 

Datasource 

Datasource2 

Supplement 

Bitbtnl 

Kind 

Bkclose 


4- pour que la table classe soit liee par une relation maTtre detail avec la table specialite (la table specialite ■=> 
maitre (pere) et la table classe ■=> detail (fils)) on procede comme suite : 

On desactive la table classe (active ■=> false) et dans le BDE on insere des index secondaires pour chaque champ de 
cette table ( ref_classe ■=> cl , designation^ ■=> c2 , ref_specialite ■=> c3) 

Ensuite on retourne a la fiche_specialite et on reactive la table classe (active ■=> true). 

On clique sur le composant table2 « classe », et choisir dans sa propriete : mastersource ■=> datasourcel 
Ensuite : dans sa propriete « masterfield » on clique sur petit bouton 


Ensuite : on choisit dans la liste en haut I’index secondaire « c3 » (c’est I’index du champ ref_specialite de la table 
classe) 

Ensuite : on choisit a gauche le champ «ref_specialite» et a droite le champ « ref_specialite». 


Ensuite : clique sur le bouton « ajouter » ensuite sur le bouton Ok 


5- Clique sur I’ongles « Statistiques » du composant « pagecontroll » et inserer dans son cadre interieur les 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Queryl 

databasename 

scolarite 

Sql 

Select specialite.designation_s, count(ref_classe) as nombre 
from specialite, classe 

where specialite. ref_specialite = classe. ref_specialite 
group by specialite. designations 

Active 

True 


controlebd 


DBchartl (Inserer ce composant sur le composant « pagecontrolel » dans la page « statistiques » ) 
Et double clique sur ce composant « dbchartl » 

Et clique sur l’ongle inf erieur « s erie » 

Et clique sur le bouton Ajouter 

Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur l’ongle superieur « serie » 

Et clique sur l’ongle « source de donnees » 

Et choisir dans la liste 1’ element « dataset » 

Et choisir dans la liste dataset 1’ element « query 1 » 

Et choisir dans la liste « libelle » 1’ element « specialite. designation_s » 

Et choisir dans la liste « sectoriel » 1’ element « nombre » 


A la fin clique sur Fermer 


Remarque : 

Pour que les statistiques affichent toujours les dernieres modifications automatiquement (rafraTchissement automatique 
des donnees du queryl) : Clique sur le composant table 1 (specialite) et Dans son inspecteur d’objet double clique a 
droite de son evenement « afterpost » 

Ensuite : ecrire le code source suivant dans la procedure correspondante : 

Queryl. close ; 

Queryl. active :=true ; 
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Aussi: 

Clique sur le composant table2 (classe) et Dans son inspecteur d’objet double clique a droite de son evenement 
« afterpost » 

Ensuite : ecrire le code source suivant dans la procedure correspondante : 

Query 1 .close ; 

Queryl .active :=true ; 


6- Cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element specialite (du sous menu 
fichier) 

Ensuite : on ecrit dans la procedure : fiche_specialite.showmodal ; 


Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_specialite et on doit cliquer sur |oul . 

Remarques : 

1- Pour que la fiche_specialite se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_specialite » et on clique sur £)k 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier <=> tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats) 


❖ 


4- FICHE BULLETIN 


fiche_bulletin 


_ a 


I mprimer 


J1 Fermer 


LISTE DES EXUBIANTS 



Code 

N orn 

Prenorn Date_naissance 

Lieu 

Adresse Doublant 

Fi ef_classe 


1 

2 

mohamed 

amine 

1 2/0 5/1 980 

setif 

setif 

Faux 

l| 

amine 

redha 

06/02/1 982 

eleulma 

eleulma 

Vrai 

6 




LISTE DES RESULTATS DE L'ETUDLANT SELECHONME 



Ref_matiere 

Matiere 

D evoir 

Composition 

Moy_20 


Coefficient Moy_coef 

Professeur 

□ bservation ] 

► 

1 

mathes 

11 

40 

17 

5 

85 

Benhadi 

rien 


2 

physique 

10 

20 

10 

4 

40 

kamel 

a bien 


M oy_G en 


M ension 


1 3,89 


Encouragement 


1- Choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety « name » le nom : « fiche_bulletin». 

Ensuite : choisir dans le menu Delphi: fichier^enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite: 
«bulletin» 

2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablet 

Databasename 

Scolarite 

Tablename 

Etudiant 

Active 

True 

accesbd 

Datasourcel 

Dataset 

Tablet 

BDE 

Table2 

Databasename 

Scolarite 

Tablename 

Resultat 

Active 

True 

mastersource 

Datasourcel 

masterfield 

Clique sur “code_etudiant” a gauche et sur “code_e” a droite et sur Aj outer ensuite sur Ok 

accesbd 

Datasource2 

Dataset 

Table2 

BDE 

Table3 

Databasename 

Scolarite 

Tablename 

Matiere 

Active 

True 
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accesbd Datasource3 


DE Table4 


controlebd Dbgridl 

Dbgrid2 


Supplement Speedbuttonl 


itbtnl 


Query 1 



controlebd dbnavigator 


standard 


Dataset 


atabasename 


"ablename 


Active 


astersource 


asterfield 


atasource 


atasource 


Caption 

Glyph 


Kind 


databasename 

Sql 


arams 


Active 


datasource 


Caption 


ext 


"able3 


Scolarite 


^rofesseur 


"rue 


atasource3 


Clique sur “Ref_matiere” a gauche et sur “Reference_m” a droite et sur 


atasource 1 


atasource2 


mprimer 


C:\Program FilesVFichiers communsVBorland SharedMmages\Buttons\printer.bmp 


kclose 


Scolarite 


select sum((devoir+composition)/3*coefficient)/sum(coefficient) as Moy_Gen 
from matiere,resultat 

where (ref_matiere =reference_m) and (code_etudiant = :p) 


Clique sur « p » et choisir dans la propriete datatype : « ftinteger » 


"rue 


atasource 1 


esultat 


ensuite sur O 


3- on peut renforcer cette fenetre par les champs calcules comme suite : 

On double clique sur le composant table2 « resultat ». 

Ensuite : on clique droit sur la petite fenetre et on clique sur « ajouter tous les champs ». 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « matiere » et on choisit le type du champ : « string » et on clique sur |Ok . 
Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « moy_20» et on choisit le type du champ : « float » et on clique sur |Ok . 

Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « coefficient » et on choisit le type du champ : « integer » et on clique sur |Ok . 
Ensuite : on clique droit une autre fois sur cette petite fenetre et on clique sur « nouveau champ ». 

Ensuite : on ecrit le nom du champ : « moy_coef » et on choisit le type du champ : « Float » et on clique sur |Ok . 

A la fin : on ferme la petite fenetre. 

Ensuite : on clique sur composant « table2 » (resultat) et dans son inspecteur d’objet on clique sur I’ongle 
evenement. 

Ensuite : on double clique a droite de I’evenement « oncalcfield » et on ecrit dans la procedure : 

table3.0pen; 

table3.setkey; 

table3.fieldbyname('reference_m’).asinteger:=table2.fieldbyname('ref_matiere').asinteger; 

if table3.gotokey then 

begin 

table2.fieldbyname('matiere').asstring:=table3.fieldbyname('designation_m').asstring; 

table2.fieldbyname('coefficient').asinteger:=table3.fieldbyname('coefficient').asinteger; 

table2.fieldbyname('moy_20').asfloat:= 

(table2.fieldbyname('devoir').asfloat+table2.fieldbyname('composition').asfloat)/3; 

table2.fieldbyname('moy_coef').asfloat:= 

table2.fieldbyname('moy_20').asfloat*table2.fieldbyname('coefficient').asinteger; 
queryl .close; 

query1.parambyname('p').asinteger:=table1.fieldbyname('code_e').asinteger; 
queryl .active:=true; 

if (queryl .fieldbyname('moy_gen').asfloat >=0) and (queryl .fieldbyname('moy_gen').asfloat <5) then 
editl .text:='Blame'; 

if (queryl .fieldbyname('moy_gen').asfloat >=5) and (queryl .fieldbyname('moy_gen').asfloat <7) then 
editl ,text:='Avertissement'; 

if (queryl .fieldbyname('moy_gen').asfloat >=7) and (queryl .fieldbyname('moy_gen').asfloat <10) then 
editl .text:='Rien'; 

if (queryl .fieldbyname('moy_gen').asfloat >=10) and (queryl .fieldbyname('moy_gen').asfioat <12) then 
editl .text:='Tableau d"honneur'; 

if (queryl .fieldbyname('moy_gen').asfloat >=12) and (queryl .fieldbyname('moy_gen').asfloat <14) then 
editl .text:='Encouragement'; 

if (queryl .fieldbyname('moy_gen').asfloat >=14) and (queryl .fieldbyname('moy_gen').asfloat <=20) then 

editl .text:='Felicitation'; 

end; 
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4 - On veut ajouter le nom du professeur dans la table resultat; mais, on ne peut pas le faire comme champ calcule 
puisque une matiere a plusieurs enseignants possibles, done la connaissance (la saisie) de la reference de matiere 
peut nous faire connaitre sa designation et son coefficient; mais on ne peut pas connaitre le nom de son enseignant 
puisque il y a plusieurs possibles. Dans ce cas et pour plus de souplesse dans la prog ram mation, la methode de 
conception Merise accepte de faire des redendances. Dans notre cas on va recreer le champ " nom du professeur " 
dans la table resultat pour indiquer I'enseignant de chaque matiere et cela en procedant comme suite : 

■ termer le logiciel par le menu delphi : fichier ■=> tous fermer; cela assure que la table resultat ne sera pas en 

cours d'utilisation. 

■ lancer le BDE Delphi par : (le menu Delphi) : Outils ■=> Module base de donnees. 

■ ouvrir la table resultat par : (le menu BDE) Fichier ■=> Ouvrir ■=> table et on choisit I’alias « scolarite » et la 

table « resultat ». 

■ cliquer dans le menu du BDE sur : table ■=> restructurer. 

■ Ecrire a la fin des ch amps notre nouveau champ "professeur" avec comme type "A" et taille "20". 

■ cliquer sur le bouton lenregistrer] et retourner a I’environnement Delphi. 

■ Reouvrir le logiciel "scolarite" par le menu Delphi : Fichier ■=> Ouvrir un projet. 

• Choisir dans le menu delphi : Fichier ■=> Nouvelle fiche. 

■ dans I’inspecteur d’objet de la fiche, ecrire dans la propriety « name » le nom : « fiche_liste_professeur». 

■ choisir dans le menu Delphi: fichierOenregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite: 

«liste_professeur». 

■ inserer dans cette fiche les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablet 

Databasename 

scolarite 



Tablename 

professeur 



Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablet 

controleBD 

Dbgridl 

Datasource 

Datasourcel 


■ Pour avoir une ligne de selection permanente dans le Dbgridl qui indique I’enregistrement resultat de la 
recherche : 

** Cliquer a gauche de la propriety « @ Options » du dbgridl (exactement sur la case @). 

Choisir dans la sous propriety : DGRowSelect otrue. 

Choisir dans la sous propriety : DGAIwaysShowSelection otrue. 

■ Taper Shift + FI 2 et on retourne a la "fiche_bulletin". 

■ Cliquer sur le composant "dbgrid2" et choisir son evenement "onkeydown" et ecrire dans sa procedure : 

If key = vk return then 
begin 

Fiche_liste_professeur.showmodal;// pour afficher la liste des professeurs et en choisir un. 

Table2.edit; // preparer la table resultat pour ecrire le nom du professeur. 

Table2.fieldbyname('professeur').asstring:= Fiche_liste_professeur.Table1.fieldbyname('nom').asstring; 
Table2.post; 

End ; 

5- on tape FI 2 pour retourner a la fiche et on double clique sur le composant « queryl ». 

Ensuite : clique doit sur la petite fenetre et clique dans le menu contextuel sur : « ajouter tous les champs ». 

Ensuite : glisser le champ « moy_gen» de la requete vers le bas de la fiche, a la fin fermer la petite fenetre. 

6- le « dbgrid2 » affiche le champ « code_etudiant » (de la table resultat) qui contient bien sur le meme code de 
I’etudiant actuelle (puisque il y’a une liaison maitre_detail entre la table resultat et la table etudiant par leurs champs 
communs code_etudiant et code_e), done ce champ repetera pour tous les enregistrements du « dbgrid2 » le meme 
code etudiant, il vaut mieux alors de ne pas afficher ce dernier dans le « dbgrid2 ». pour supprimer ce champ : 

double clique sur le « dbgrid2 ». 

clique en haut de la petite fenetre sur le bouton « ajouter tous les champs » 
supprimer le champ « code_etudiant » et fermer la petite fenetre. 

(Le champ « code_etudiant » ne sera pas supprime de la table « resultat » mais seulement il ne sera pas affiche) 

7- pour preparer I’impression de notre bulletin on procede comme suite : 

On insere une nouvelle fiche a notre logiciel par le choix dans le menu Delphi de : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom: « fiche etat_bulletin ». 

Ensuite : (le menu Delphi): fichier oenregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite: 
«etat_bulletin ». 

Ensuite : on insere dans cette fiche un composant « quickrepl » de la palette « qreport ». 

Ensuite : on tape FI 2 et en haut de I’unite on ecrit dans la liste «uses» le nom «bulletin» et on compile Ctrl+F9 pour 
assurer la liaison entre la fiche bulletin et la fiche etat bulletin. 
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Nb : par fois Delphi repete quelques unites de la partie uses si on ecrit une nouvelle unite dans cette partie, done on 
doit supprimer les unites dupliquees si Delphi signal ce probleme de repetition apres la compilation du logiciel. 

Ensuite : dans I’inspecteur d’objet du quickrepl on choisit dans la propriety : dataset ■=> « fiche_bulletin.table2 » 

Ensuite : dans I’inspecteur d’objet de ce composant on ecrit dans la propriety : zoom ■=> 70 

Ensuite : choisir dans sa propriety Bands: hastitle^true; hascolumnheaderotrue; hasdetail^true; hassummaryo true. 
Ensuite : on insere les composants suivants de la palette « qreport » sur les bandes de ce quickrepl comme suite: 


® F't e visualisation d'impi ession 



- ! ^ ^J! 

LEU l«l 

Ffe H A ► M 


Fermer 



tvl i n i st e r e de I' e d u c at i o n n a ti o n a I e 
D i re art i o n d e I 'e d ucation S e ti f 
Ly cee Ki ro u a n i 


BULLETIN DE SCOLARITE 


N o rn : moharned 

P re n b rn : a rn i n e 

□at e & Li e u d e ri a i s s a nr ce: 1 2/ □ 5/ 198 O 


Clasc.e : 1 

D o u b I a rit : Fa ux 


a set if 


M atie re 

D evo i r 

G o rn p o s it ! o n 

M oy_28 

Go effi c i e nt 

tvl oy Co ef 

P ro f e s s e lj r 

Ob s e rvat i o n 

fri at h e s 

1 1 

■40 

1 7 

5 

85 

E3 e n h a d i 

ri e n 

p by s i q u e 

1 8 

28 

1 8 

■4 

■48 

k a rne 1 

a b i e n 


Tvl oy e n n e U enerale : 18. 8 9 

tvl ensi o n : EE n c o u ra g e rne nt 


Page 1 sur 1 


bande 

Composant 

Propriety 

valeur 

Titre 

(agrandir la hauteur 
de cette bande) 

qrlabell 

caption 

Ministere de I’education nationale 

qrlabel2 

caption 

direction de I’education Setif 

Qrlabel3 

caption 

lycee Kirouani 

Qrlabel4 

caption 

BULLETIN DE SCOLARITE 

Qrlabel5 

caption 

nom 

qrdbtextl 

dataset 

fiche_bulletin.table1 

datafield 

Nom_e 

Qrlabel6 

caption 

prenom 

Qrdbtext2 

dataset 

fiche_bulletin.table1 

datafield 

Prenom_e 

Qrlabel7 

caption 

date & lieu de naissance 

Qrdbtext3 

dataset 

fiche_bulletin.table1 

datafield 

Date_naissance 

Qrlabel8 

caption 

■\ 

a 

Qrdbtext4 

dataset 

fiche_bulletin.table1 

datafield 

Lieu 

Qrlabel9 

caption 

classe 

Qrdbtext5 

dataset 

fiche_bulletin.table1 

datafield 

Ref_classe 

Qrlabell 0 

caption 

doublant 

Qrdbtext6 

dataset 

fiche_bulletin.table1 

datafield 

doublant 

Entete de colonnes 

Qrlabell 1 

caption 

Matiere 

Qrlabell 2 

caption 

Devoir 

Qrlabell 3 

caption 

composition 

Qrlabell 4 

caption 

Moy_20 

Qrlabell 5 

caption 

coefficient 

Qrlabell 6 

caption 

Moy_coef 

Qrlabell 7 

caption 

professeur 

Qrlabell 8 

caption 

observation 
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Detail 

Qrdbtext7 

dataset 

fiche_bulletin.table2 



datafield 

Matiere 


Qrdbtext8 

dataset 

fiche_bulletin.table2 



datafield 

Devoir 


Qrdbtext9 

dataset 

fiche_bulletin.table2 



datafield 

composition 


Qrdbtextl 0 

dataset 

fiche_bulletin.table2 



datafield 

Moy_20 


Qrdbtextl 1 

dataset 

fiche_bulletin.table2 



datafield 

coefficent 


Qrdbtextl 2 

dataset 

fiche_bulletin.table2 



datafield 

Moy_coef 


Qrdbtextl 3 

dataset 

fiche_bulletin.table2 



datafield 

professeur 


Qrdbtextl 4 

dataset 

fiche_bulletin.table2 



datafield 

observation 

Resume 

Qrlabel19 

caption 

Moyenne generale 

(agrandir la hauteur 

Qrdbtextl 5 

dataset 

fiche_bulletin. queryl 

de cette bande) 


datafield 

moy_gen 


Qrlabel20 

caption 

Resultat 


Qrlabel21 caption 

Ensuite : on tape Shift + FI 2 et on affiche la fiche « fiche bulletin » 

Ensuite : on double clique sur le bouton « imprimer » et on ecrit dans sa procedure : 

Fiche_etat bulletin.qrlabel21 .caption :=edit1.text ; 

Fiche etat bulletin.quickrepl .preview ; // le bouton imprimer existe en haut de la fenetre de previsualisation. 

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 

8- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 

On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur ^k. 

Ensuite: on double clique sur le composant «mainmenu1» et double clique sur son element bulletin (sous menu 
Edition) 

Ensuite : on ecrit dans la procedure : fiche_bulletin.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_bulletin et on doit cliquer sur 0 pour cette demande de confirmation ; on 
recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_bulletin et la fiche_etat_bulletin et on doit cliquer sur 
pull aussi pour cette demande de confirmation. 

Remarques : 

1 - Pour que la fiche bulletin se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel : 

On tape : Shift + FI 2 et on clique sur la « fiche_bulletin » et on clique sur |Ok. 

On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 


Remarque importante: 

Pour controler le format d’affichage des nombres reels (champ de type float) dans une BD (limiter le nombre de chiffres 
apres la virgule) on procede comme suite : 
double clique sur le composant « table2 ». 


clique sur le champ a formater (pour nous on va manipuler les deux champs «moy_20» et «moy_coef») 


Ecrire dans sa propriety : 


Display format ##.## 


(# Represente un chiffre, done 2 chiffres avant et apres la virgule) 

Ensuite double clique sur le composant « queryl ». 

clique sur le champ a formater (pour nous on va manipuler le champ «moy_gen») 

Ecrire dans sa propriety : i nnnnr 

Display format ##•## 


Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 


possibles) 
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4- LA FICHE CONSULTATION ETUDIANT 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom : 

« fiche_consultation_etudiant». 

Ensuite : (le menu Delphi): fichier ■=> enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite: 
«consultation_etudiant» 

2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

bitbtn 

kind 

bkclose 

standard 

label 1 

Caption 

Choisir la classe 

BDE 

Table 1 

databasename 

scolarite 

tablename 

ssecla 

active 

true 

Accesbd 

Datasourcel 

dataset 

Table 1 

controlebd 

db lo okup comb ob ox 1 

listesource 

datasourcel 

listefield 

Ref_classe; designations 

keyfield 

Ref_classe 

BDE 

Query 1 

databasename 

Scolarite 

Sql 

select * from etudiant where ref_classe = :p 

Params 

Clique sur « p » et choisir dans la propriete datatype : « ftinteger » 

Active 

True 

Accesbd 

Datasource2 

dataset 

Query 1 

supplement 

Speedbuttonl 

glyph 

C:\Program Files\Fichiers communsYBorland Shared\Images\Buttons\find.bmp 

standard 

abell2 

Caption 

Choisir la specialite 

BDE 

Table2 

databasename 

Scolarite 

tablename 

specialite 

active 

true 

Accesbd 

Datasource3 

dataset 

Table2 

controlebd 

dblookupcombobox2 

listesource 

datasource3 

listefield 

Ref_specialite; designation_s 

keyfield 

Ref_specialite 

Dbgridl 

datasource 

Datasource2 

supplement 

Speedbutton2 

glyph 

C:\Program FilesVFichiers communs\Borland Shared\Images\Buttons\find.bmp 

standard 

label3 

Caption 

Etudiant doublant 

Comboboxl 

text 


Items 

Oui 

Non 

supplement 

Speedbutton3 

glyph 

C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\find.bmp 

BDE 

Query2 

databasename 

Scolarite 

Sql 

select * 

from etudiant tl, classe t2 

where (tl.ref_classe = t2.ref_classe) 

and (t2.ref_specialite = :p) 

Params 

Clique sur « p » et choisir dans la propriete datatype : « ftinteger » 

Active 

True 

Query3 

databasename 

Scolarite 

Sql 

select * from etudiant where doublant = :p 

Params 

Clique sur « p » et choisir dans la propriete datatype : « ftstring » 

Active 

True 
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3- double clique sur le composant « speedbuttonl » et ecrire : 

queryl .close; 

query1.parambyname('p').asinteger:=table1.fieldbyname('ref_classe').asinteger; 
queryl .active:=true; 
datasource2.dataset:=query1 ; 

4- tapez FI 2 et double clique sur le composant « speedbutton2 » et ecrire: 

query2.close; 

query2.parambyname('p').asinteger:=table2.fieldbyname('ref_specialite').asinteger; 

query2.active:=true; 

datasource2.dataset:=query2; 

5- tapez FI 2 et double clique sur le composant « speedbutton3 » et ecrire: 

query3.close; 

query3.parambyname('p').asstring:= comboboxl .text ; 

query3.active:=true; 

datasource2. dataset :=query3; 


6- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 
On tape les touches : SHIFT + FI 2 et on clique sur la « fiche_menu » et on clique sur 6k 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element etudiant (du sous menu 
consultation) 

Ensuite : on ecrit dans la procedure : fiche_consultation_etudiant.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi v ous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_consultation_etudiant et on doit cliquer sur 
confirmation. 


oui 


pour cette demande de 


Remarques : 

1- Pour que la fiche_consultation_etudiant se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du 
logiciel : 


On tape : SHIFT + FI 2 et on clique sur la « fiche_consultation_etudiant » et on clique sur 6k 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier <=> tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


❖ 


4- FICHE ST ATISTIOUES DES ETUDIANTS 


fiche stmistiqiie* etudiant 


I - Ifa'I 


jn.jE ermer 


o 


Par S pecialifce Par Groups | Par R esultat 


STATISTIQUE DES ETUDIANTS PAR SPECLALITE 


| Mat has | | 


FI 1 Mathes 

■ 1 Sciences 


I 



1 - choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name»le nom:«fiche_statistiques_etudiant». 
Ensuite:(le menu Delphi): fichier ^enregistrer, et dans le dossier « c:\scolarite\source » nommer 
l’unite:«statistiques_etudiant» 
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2- Inserer 


D alette 


DE 


I 

IS: 




wcesbd 




les composants suivants : 


Composant 


"ablel 


atasourcel 


Query 1 



supplement 


Win32 


Li 


ropnete 


databasename 


ablename 


Active 


ataset 


databasename 


Sql 


Active 


databasename 


Sql 


arams 


Active 


databasename 


Sql 


ctive 


kind 


in 


tnbit 


D agecontroll 


Clique droit sur ce composant etCaption 
clique sur « nouvelle page » 


Clique droit sur ce composant etCaption 
clique sur « nouvelle page » 


Clique droit sur ce composant etCaption 
clique sur « nouvelle page » 


rValeur 


scolarite 


specialite 


true 


Table 1 


scolarite 


select tl.designation_s,count(t3.code_e)as nombre 
from specialite tl, classe t2, etudiant t3 
where (tl.ref_specialite = t2.ref_specialite) 
and (t2.ref_classe = t3.ref_classe) 
group by tl.designation_s 


True 


scolarite 


select tl. designations, count(t2.code_e)as nombre 

from classe tl, etudiant t2 

where (tl.ref_classe = t2.ref_classe) 

and(tl.ref_specialite = :p) 

group by tl. designations 


Clique sur « p » et choisir dans la propriete datatype : « ftinteger » 


True 


scolarite 


select Doublant,count(Doublant)as nombre 
from etudiant 
group by doublant 


Tue 


kclose 


Li 


ar Specialite 




ar Groupe 


Li 




bgridl(dans la page« Par Groupe») 

3 

atasource 

3 



atasourcel 


dBchartl (Inserer ce composant sur le composant « pagecontrolel » dans la page « Par Specialite» ) 
Et double clique sur ce composant « dbchartl » 

Et clique sur l’ongle inf erieur « serie » 

Et clique sur le bouton Aj outer 

Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur l’ongle superieur « serie » 

Et clique sur l’ongle « source de donnees » 

Et choisir dans la liste T element « dataset » 

Et choisir dans la liste dataset T element « query 1 » 

Et choisir dans la liste « libelle » T element « designations » 

Et choisir dans la li ste « sec toriel » T element « nombre » 
la fin clique sur Fermer 


dBchart2 (Inserer ce composant sur le composant « pagecontrolel » dans la page « Par Groupe») 
Et double clique sur ce composant « dbchart2 » 

Et clique sur l’ongle in ferieur « serie » 

Et clique sur le bouton Aj outer 

Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur l’ongle superieur « serie » 

Et clique sur l’ongle « source de donnees » 

Et choisir dans la liste T element « dataset » 

Et choisir dans la liste dataset T element « query2 » 

Et choisir dans la liste « libelle » T element « designations » 

Et choisir dans la l iste « se ctoriel » T element « nombre » 

A la fin clique sur Fermer 
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Controlebd 


dBchart3 (Inserer ce composant sur le composant « pagecontrolel » dans la page « Par Resultat») 
Et double clique sur ce composant « dbchart3 » 

Et clique sur l’ongle in ferieur « serie » 

Et clique sur le bouton Aj outer 

Et clique sur le graphe de la forme « sectoriel » 

Et clique sur le bouton Ok 

Et clique sur l’ongle superieur « serie » 

Et clique sur l’ongle « source de donnees » 

Et choisir dans la liste V element « dataset » 

Et choisir dans la liste dataset V element « query3 » 

Et choisir dans la liste « libelle » 1’ element « Doublant » 

Et choisir dans la liste « sectoriel » 1’ element « nombre » 


A la fin clique sur Fermer 


3- Dans I’evenement "Afterscroll" du composant tablel on ecrit : 

query2. close; 

query2.parambyname('p').asinteger:=table1 .fieldbyname('ref_specialite').asinteger; 
query2.active:=true; 


Remarque : 

Pour que la fiche statistiques etudiant affiche toujours les dernieres modifications automatiquement (rafraichissement 
automatique des donnees du queryl et query2 et query3) : Clique sur la fiche_statistiques_etudiant 
Dans son inspecteur d’objet double clique a droite de I’evenement « onactivate » 

Ensuite : ecrire le code source suivant dans la procedure correspondante : 

Queryl .close ; 

Queryl .active :=true ; 

Query2. close ; 

Query2. active :=true ; 

Query3. close ; 

Query3. active :=true ; 


4- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur |Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element scolarite (sous menu 
statistiques) 

Ensuite : on ecrit dans la procedure : fiche_statistiques_etudiant.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi v ous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_statistiques_etudiant et on doit cliquer sur 
confirmation. 


oui 


pour cette demande de 


Remarques : 

1- Pour que la fiche statistique etudiant se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du 
logiciel : 


On tape : Shift + FI 2 et on clique sur la « fiche_statistique_etudiant » 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 
On choisit dans sa propriety : « position ■=> poScreenCenter» 


et on clique sur Dk 


2- on enregistre notre travail par le menu Delphi : fichier o tout enregistrer. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


❖ 
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1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety «name»le nom:«fiche_liste_etudiant». 

Ensuite:(le menu Delphi): fichier oenregistrer, et dans le dossier « c:\scolarite\source » nommer l’unite:« I i ste et u d i a nt » 

2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

BDE 

Tablel 

Databasename 

scolarite 

Tablename 

etudiant 

Active 

True 

Accesbd 

Datasourcel 

Dataset 

Tablel 

controleBD 

Dbgridl 

Datasource 

Datasourcel 

Standard 

Label 1 

Caption 

Filtrage 

Editl 

Text 


Supplement 

Speedbuttonl 

Caption 

Imprimer certificat scolarite 

Glyph 

C:\Program FilesVFichiers communs\Borland Shared\Images\Buttons\printer.bmp 

Speedbutton2 

Caption 

Imprimer carte etudiant 

Glyph 

C:\Program FilesVFichiers communs\Borland Shared\Images\Buttons\printer.bmp 

Bitbtnl 

Kind 

Bkclose 


3- Pour faire le filtrage on double clique sur le composant editl et on ecrit dans la procedure (onchange): 

if editl .text <> " then 
begin 

tablel .close ; 
tablel .filtered :=true ; 

tablel .filter :=’[Nom_e]=‘ + #39 + editl. text + + #39 ; 

tablel .active := true ; 

end 

else 

begin 

tablel .close ; 
tablel .filtered := false ; 
tablel .active := true ; 
end ; 
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4 - pour preparer I’impression du CERTIFICAT DE SCOLARITE et de la carte etudiant on precede comme suite : 

On insere une nouvelle fiche a notre logiciel par le choix dans le menu Delphi de : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete « name » le nom: « fiche_etat_liste_etudiant ». 
Ensuite : (le menu Delphi): fichier oenregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite: 
«etat_liste_etudiant ». 

5- pour imprimer le certificat de scolarite on insere dans cette fiche un composant « quickrepl » de la palette 
« qreport ». 

Ensuite : on tape F12 et en haut de I’unite on ecrit dans la liste «uses» le nom «liste_etudiant» et on compile Ctrl+F9 
pour assurer la liaison entre la fiche_liste_etudiant et la fiche_etat_liste_etudiant. 

Nb : par fois Delphi repete quelques unites de la partie uses si on ecrit une nouvelle unite dans cette partie, done on 
doit supprimer les unites dupliquees si Delphi signal ce probleme de repetition apres la compilation du logiciel. 

Ensuite : dans I’inspecteur d’objet de ce composant on ecrit dans la propriete : zoom o 70 
Ensuite : choisir dans sa propriete Bands: hastitle otrue; 

Ensuite : on agrandis la largeur de la bande titre et dans cette bande on insere les composants suivants de la palette 
« qreport » : 


bande 

Composant 

Propriete 

valeur 

Titre 

qrlabell 


Ministere de I’education nationale 


qrlabel2 

caption 

direction de I’education Setif 


Qrlabel3 

caption 

lycee Kirouani 


Qrlabel4 


CERTIFICAT DE SCOLARITE 


Qrlabel5 


J’atteste, mois le directeur du lycee, que I’etudiant (e) 


Qrlabel6 


nom 


Qrdbtextl 

dataset 

fiche_liste_etudiant.table1 



datafield 

Nom_e 


Qrlabel7 



Qrdbtext2 

dataset 

fiche_liste_etudiant.table1 



datafield 

Prenom_e 


Qrlabel8 


date & lieu de naissance 


Qrdbtext3 

dataset 

fiche_liste_etudiant.table1 



datafield 

Date_naissance 


Qrlabel9 

fasisuB'fltWf 

■\ 

a 


Qrdbtext4 

dataset 

fiche_liste_etudiant.table1 



datafield 

Lieu 


Qrlabell 0 


A suivi ses etudes cette annee scolaire dans : 


Qrlabell 1 


classe 


Qrdbtext5 

dataset 

fiche_liste_etudiant.table1 



datafield 

Ref_classe 


Qrlabell 2 

caption 

Cette attestation n’est livree que pour servir a ce que de droit 


Ensuite : on tape Shift + FI 2 et on affiche la fiche « fiche liste_etudiant » 

Ensuite : on double clique sur le bouton « imprimer certificat scolarite » et on ecrit dans sa procedure : 

Fiche_etat_liste_etudiant.quickrep1 .preview ; 

// le bouton imprimer existe en haut de la fenetre de previsualisation. 

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 

6- pour imprimer la CARTE ETUDIANT on insere dans la fiche_etat_liste_etudiant un composant « quickrep2 » de la 
palette « qreport ». 

Ensuite : dans I’inspecteur d’objet de ce composant on ecrit dans la propriete : zoom ■=> 70 
Ensuite : choisir dans sa propriete Bands: hastitle otrue; 

Ensuite : on double clique sur ce composant « quickrep2 » 

Choisir dans la fenetre la liste : taille de papier ■=> « taille personnalisee » 

Ecrire : largeur o 1 40 et longueur ■=> 1 00 et clique sur |Ok 

Ensuite : on agrandis la largeur de la bande titre et dans cette bande on insere les composants suivants : 

bande Composant Propriete valeur 

Titre qrlabell 3 caption Ministere de I’education nationale 

Qrlabel14 caption direction de I’education Setif 

Qrlabell 5 caption lycee Kirouani 

Qrlabell 6 caption CARTE ETUDIANT 

Qrlabell 7 caption nom 

Qrdbtext6 dataset fiche_liste_etudiant.table1 

datafield Nom_e 

Qrlabell 8 [caption prenom 
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Qrdbtext7 

dataset 

fiche_liste_etudiant.table1 

datafield 

Prenom_e 


Qrlabel19 

caption 

date & lieu de naissance 


Qrdbtext8 

dataset 

fiche_liste_etudiant.table1 



datafield 

Date_naissance 


Qrlabel20 

caption 

■\ 

a 


Qrdbtext9 

dataset 

fiche_liste_etudiant.table1 



datafield 

Lieu 


Qrlabel21 

caption 

classe 


Qrdbtextl 0 

dataset 

fiche_liste_etudiant.table1 



datafield 

Ref_classe 


Qrlabel22 

caption 

photo 


Qrdbimagel 

dataset 

fiche_liste_etudiant.table1 



datafield 

photo 


Ensuite : on tape Shift + FI 2 et on affiche la fiche « fiche_liste_etudiant » 

Ensuite : on double clique sur le bouton « imprimer carte etudiant » et on ecrit dans sa procedure : 

Fiche_etat_liste_etudiant.quickrep2.preview ; 

// le bouton imprimer existe en haut de la fenetre de previsualisation. 

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 


Remarque importante : 

Pour imprimer la certificat de scolarite ou la carte etudiant de I’etudiant en cours (etudiant selectionne) on ne choisit rien 
dans la propriety « dataset » du composant « quickrep » (ie : cette propriety doit rester vide), cela aura comme resultat 
que ces imprimees concerneront a chaque fois I’etudiant selectionne. 

7- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite : 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element impressions (du sous 
menu etats) 

Ensuite : on ecrit dans la procedure : fiche_liste_etudiant.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_liste_etudiant et on doit cliquer sur 0 pour cette demande de 
confirmation ; on recompile par Ctrl + F9_ pour faire la liaison aussi entre la fiche liste etudiant et la 
fiche_etat_liste_etudiant et on doit cliquer sur 


oui 


aussi pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche liste etudiant se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fiche_liste_etudiant» et on clique sur |Ok 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 

❖ Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


4- FICHE MOT DE PASSE 



1 -choisir dans le menu Delphi : fichier ■=> nouveau ■=> dialogue ■=> dialogue de mot de passe. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety «name» le nom: « fiche_passe ». 

Ensuite : (le menu Delphi) : fichier ^enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite : « passe » 
2- inserer un composant « tablel » (palette BDE) et manipuler ces proprietes : 

Databasename ■=> scolarite table name ■=> protection active ■=> true. 
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3- Double clique sur le bouton et ecrire dans sa procedure : 

if password.text=table1.fieldbyname('password').asstring then 

fiche_menu.showmodal 

else 

begin 

showmessage('mot de passe incorrecte'); 
password.clear; 

//le composant password est un simple composant Edit; done password.clear; veut dire vider son texte. 

password.setfocus; 

end; 


3- double clique sur le Bouton Annuler et ecrire dans sa procedure : application.terminate 


Remarques importantes: 

a- Pour que la fiche_passe se lance la premiere lors de chaque execution du logiciel on choisit dans le menu Delphi 


Projet ■=> options ■=> dans I’ongles « fiche » ■=> dans la liste « fiche principale » ■=> choisir : « fiche_passe » o |Ok 
b- il taut ajouter les deux unites : messages, dialogs, dans la liste uses de I’unite « passe » 

Nb : par fois Delphi repete quelques unites de la partie uses si on ecrit une nouvelle unite dans cette partie, done on 
doit supprimer les unites dupliquees si Delphi signal ce probleme de repetition apres la compilation du logiciel. 

Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 


❖ 


4- FICHE PROTECTION 



1 - choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety «name»le nom:« fiche_protection ». 

Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\scolarite\source » nommer l’unite:« protection* 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

bitbtnl 

kind 

bkclose 

bitbtn2 

kind 

bkok 

standard 

label 1 

caption 

Ancien mot de passe 

editl 

text 


passwordchar 

* 

label2 

caption 

Nouveau mot de passe 

edit2 

text 


passwordchar 

* 

label3 

caption 

confirmation 

edit3 

text 


passwordchar 

* 

BDE 

table 1 

databasename 

scolarite 

tablename 

protection 

Active 

True 
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3- double clique sur le composant « BitBtn2 » et ecrire dans sa procedure: 

If editl.text = table1.fieldbyname(‘password’).asstring then 

If edit3.text = edit2.text then 

Begin 

Tablel.edit; 

Table1.fieldbyname(‘password’).asstring:=edit2.text; 

Tablel.post; 

Showmessage(‘ la modification du mot de passe est effectuee ’) 

End 

Else Showmessage(‘ la confirmation du mot de passe est incorrecte ’) 
Else Showmessage(‘ T’ancien mot de passe est incorrecte ’) ; 


4- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur fDk 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element protection (du sous menu 
outils) 

Ensuite : on ecrit dans la procedure : fiche_protection.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_protection et on doit cliquer sur |Oui| pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche protection se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fiche_protection » et on clique sur |Ok 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier <=> tout enregistrer. 




Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


4- FICHE ARCHIYAGE 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name» le nom:« fiche_archivage ». 

Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\scolarite\source » nommer l’unite:« archivage» 


Palette 

Composant 

Propriete 

Valeur 

win3.1 

FileListBoxl 

name 

fichier 

Mask 

*.db 

DirectoryListBoxl 

name 

driverlist 

Dri veComboB ox 1 

name 

driver 

Dirlist 

driverlist 

FilterComboB ox 1 

Filelist 

fichier 

filter 

*.db 

supplement 

BitBtnl 

kind 

bkclose 

Speedbuttonl 

caption 

archiver 

glyph 

C:\Program Files\Fichiers communsVBorland sharedMmages\Buttons\floppy.bmp 

standard 

Label 1 

caption 

lecteur 
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2- tapez FI 2 et dans la liste uses de I’unite archivage II faut ajouter I’unite : Shell API, . 

3- tapez FI 2 pour revenir a la fiche et Inserer les composants suivants : 


4- Double clique sur le composant speedbuttonl et ecrire dans sa procedure : 

if CopyFolder('c:\scolarite\base', driverlist.Directory) then 
ShowMessage(‘ Archivage effectue avec succes') else 
ShowMessage(' Archivage non effectue'); 

5- il faut inserer avant la procedure BitBtn4Click la fonction suivante : 

function CopyFolder(FromFld, ToFId: string): boolean; 

var fos: TSHFileopStruct; 

begin 

FillChar(fos, SizeOf(fos),0); 

with fos do 

begin 

wFunc := FO_COPY; 
pFrom := PChar(FromFid+#0); 
pTo := PChar(ToFld+#0); 

fFlags := FOF SILENT or FOF NOCONFIRMATION or FOF NOCONFIRMMKDIR; 
end; 

Result := ShFileOperation(fos)=0; 
end; 


6- pour avoir un bon interface on doit cacher les deux composants «FileListBox1 » et «FilterComboBox1 »comme suite: 

- clique par le bouton droit de la sourie sur le composant : « FileListBoxI » nomme « fichier » et choisir dans le menu 
contextuel : « mettre en arriere plan » et mettre ce composant au-dessous du « DirectoryListBoxI » (driverlist). 

- aussi, clique par le bouton droit de la sourie sur le composant : « FilterComboBoxI » et choisir dans le menu 
contextuel : « mettre en arriere plan » et mettre ce composant au-dessous du « DirectoryListBoxI » (driverlist). 


7- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur |Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element archivage (du sous menu 
outils) 

Ensuite : on ecrit dans la procedure : fiche_archivage.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_archivage et on doit cliquer sur |Oui| pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche archivage se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fiche_archivage » et on clique sur 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriety : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier ■=> tout enregistrer. 




Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous les traitements possibles) 

Cette fiche necessite la creation d'un dossier dans disque dur (nomme par exemple : archive2007) qui sera le 
dossier ou on va archiver notre base de donnees. 




± FICHE CLOTURE 



1- choisir dans le menu Delphi : fichier ■=> nouvelle fiche. 

Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriety «name» le nom:« fiche_Cloture». 

Ensuite : (le menu Delphi) : fichier oenregistrer, et dans le dossier « c:\scolarite\source » nommer l’unite:« Cloture» 


- 108 - 


Ajyjrrendre Delphi7 gar /’exemp/e 


Chapitre 3 : Logiciel gestion scolaritg 


2- Inserer les composants suivants : 


Palette 

Composant 

Propriete 

Valeur 

supplement 

speedbuttonl 

caption 

Vider Table Resultats 

yphgl 

C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\trash.bmp 

Bitbtnl 

kind 

bkclose 

BDE 

Tablel 

Databasename 

scolarite 

Tablename 

resultat 

Active 

True 

controleBD 

Dbgridl 

Datasource 

Datasource 1 


3- double clique sur le « speedbuttonl » et ecrire dans sa procedure : 

While not (tablel.eof) do 
tablel .delete ; 

showmessage('la table resultats est videe'); 

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier ■=> tout enregistrer 


2- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur Ok 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element Cloture (du sous menu 
outils) 

Ensuite : on ecrit dans la procedure : fiche_cloture.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 


de la liaison entre la fiche_menu et la fiche_cloture et on doit cliquer sur |Oui| pour cette demande de confirmation. 


Remarques : 

1- Pour que la fiche cloture se place au milieu de I’ecran si on I’appel lors du lancement de 1‘execution du logiciel 


On tape : Shift + FI 2 et on clique sur la « fiche_cloture » et on clique sur £)k 
On clique sur cette fiche (eviter de cliquer sur I’un de ses composants). 

On choisit dans sa propriete : « position ■=> poScreenCenter» 

2- on enregistre notre travail par le menu Delphi : fichier <=> tout enregistrer. 




Lancer I’execution par F9 et tester cette fiche (saisir des donner et verifier les resultats de tous les traitements 
possibles) 


4- FICHE A PROPOS 


A propos 



Logiciel Gestion Seolaiite 


Version I 0 


Copyright : DELTA 2007 
Commeritaires logioiei de TP 


□ K 


1- on peut inserer cette fiche par le menu Delphi 


Fichier ■=> nouveau ■=> fiche ■=> boite a propos ■=> Ok 


Ensuite : dans I’inspecteur d’objet de la fiche on ecrit dans la propriete «name»le nom:«fiche_apropos». 

Ensuite : (le menu Delphi): fichier^enregistrer, et dans le dossier « c:\scolarite\source » nommer I’unite: « apropos 
Ensuite : on ecrit le texte qu’on veut dans les label et modifier la couleur et la faille des labels par leurs propriete 
« FONT ». (Cette fiche est la carte visite du logiciel). 


» 


2- cette fiche est maintenant prete a etre liee avec le menu principal du logiciel comme suite 


On tape les touches : Shift + FI 2 et on clique sur la « fiche_menu » et on clique sur |0k 


Ensuite : on double clique sur le composant « mainmenul » et double clique sur son element « a propos » (du sous 
menu « ? ») 
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Ensuite : on ecrit dans la procedure : fiche_apropos.showmodal ; 

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation 
de la liaison entre la fiche_menu et la fiche_apropos et on doit cliquer sur |ouj] pour cette demande de confirmation. 

L’image de Logo : 

1- dans la propriety picture du composant « imagel » on clique sur le bouton |Charger| et chercher I’image voulue. 
(Delphi propose quelques images dans : 

« C:\Program Files XFichie rs communs\Borland Shared\lmages\Splash\256Color ». 

2- en fin clique sur |Ouvrir| ensuite sur 

3- pour que I’image occupe toute la surface de son cadre on modifie sa propriety : Autosize ■=> true. 

4- pour que I’image s’agrandie si elle a une taille plus petite que la surface de son cadre on modifie sa propriety : 

Stretch ■=> true. 

❖ Lancer I’execution par F9 et tester cette fiche (verifier les resultats de tous le traitements possibles) 
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4- CREER UNE INSTALLATION 

Lorsque vous commencerez a faire des logiciels assez grand, vous aurez surement envie de creer un programme 

d'installation (pour tous type de logiciels, qu’il soit realise en Delphi, en C++ Builder, en Java...) 

On va montrer comment creer un programme d'installation pour le Logiciel Gestion Commerciale : 

1- Telecharger Inno Setup 

II existe de nombreux outils permettant de creer une installation : InstallShield , Inno Setup ... 

2- Creer une nouvelle installation 

Cochez I’option : "Create a new script file using the Script Wizard" : 



Cliquez sur OK. 



Ne cochez pas la case, cliquez sur Next, 


Inno Setup Script Wizard 


Application Information 

Please specify some basic information about your application. 



Application name: 



< £ack 


Next > 


Cancel 


Inno Setup Script Wizard 


Application Directory 

Please specify directory information about your application. 


Application destination base directory: 

Program Files directory 



Application directory name: 

Mario Sokoban 


0 Allow user to change the application directory 
Other: 

O The application doesn't need a directory 



Vous devez rentrer le nom de votre programme, 
le nom de votre programme avec le numero de version, 
le nom du createur ainsi que le site web du programme. 



Choisir le dossier d'installation du programme. 
Laisser cocher la case "Allow user to change the 
application directory". Cela permettra a 
I'utilisateur de changer le chemin d'installation. 



les fichiers a empaqueter. 

le chemin de I'executable (le .exe du logiciel). 

Done : c:\commerce\source\commerce.exe 

en-dessous, laisser cochee la case : 

elle permet de laisser la possibility a I’utilisateur de demarrer 

le programme automatiquement a la fin de I'installation. 

La case "The application doesn't have a main executable file" 
ne sera generalement pas cochee. Elle ne sert que pour 
les programmes ne possedant pas de .exe principal, 
les "Other application files". Vous devez indiquer tous 


On vous demande le 
nom du dossier dans le 
menu demarrer. 
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les fichiers dont a besoin votre programme pour fonctionner. 

( les DLL dont a besoin le programme, les images, les sons etc...) 

Allow user to change Start Menu folder name : I'utilisateur peut changer le nom du dossier du menu demarrer. 
Allow user to disable Start Menu folder creation : I'utilisateur peut desactiver la creation des raccourcis dans le 
menu demarrer. 

Create an Internet Shortcut in the Start Menu folder : un lien vers votre site web sera ajoute au Menu Demarrer 
Create an Uninstall icon in the Start Menu folder : ajoute une icone de desinstallation dans le menu demarrer. 

Allow user to create a desktop icon : laisse la possibility a I'utilisateur de creer un raccourci sur le bureau. Allow 
user to create a Quick Launch icon : I'utilisateur peut creer un raccourci dans la barre Quick Launch. C'est une barre 
de raccourcis situee juste a droite du menu Demarrer. 


*£ demarrer 

m > o 5> 

) 2 Firefox 



Inno Setup Script Wizard 


Application Documentation 

Please specify which documentation files should be shown by Setup during 
installation. 


License file: 




Browse... 

Information file shown before installation: 




Browse... 

Information file shown after installation: 




Browse... 



Les fichiers texte a afficher avant et apres ('installation 
(ainsi que la license du programme). 

Vous pouvez indiquer n'importe quel fichier .txt 
(ou .rtf si vous voulez faire un peu de mise en forme 
comme mettre de la couleur, du gras...), 
exemple, vous pourriez indiquer les bugs connus 
de votre programme, les ameliorations apportees 
par la nouvelle version etc. 

La partie "License File" sera utile notamment si 
vous distribuez votre programme sous 
license libre (GNU / GPL) comme ga se fait le plus 
souvent pour les programmes Open Source. 


Inno Setup Script Wizard 


Compiler Settings 

Please specify some basic compiler settings. 


Custom compiler output directory: 


C:\Documenfs and Se(tings\Mateo21 \Mes documents'^ ites\S 

Browse... 

Compiler output base file name: 


mario_sokoban_setup 

Custom Setup icon file: 



Browse... 

Setup password: 



< £ack 


hJext > 


Cancel 



Les langues disponibles dans le programme 
d’installation. 

Si vous cochez plusieurs langues, on 
demandera la langue desiree au debut de Par 

I'installation. 


Inno Setup Compiler 


(XI 



Would you like to compile the new script now? 



Le premier champ permet d’indiquer dans quel dossier 
devra etre cree le programme d'installation. 

Ensuite, on vous demande le nom du programme d'installation. Compiler I'installation, cliquez sur Oui 

Le troisieme champ permet de choisir un fichier Au bout de quelques secondes, 

d'icone (.ico) personnalise pour I'installation. le programme d'installation a ete genere ! 

le 4eme champ permet de proteger I'installation 

par mot de passe. Seuls ceux qui connaissent 

le mot de passe pourront installer votre programme. 

La fenetre suivante est la derniere : 
vous n’avez plus qu'a cliquer sur Finish ! 
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CONCEPTION DES FICHIERS HELP POUR LES LOGICIELS 

On procede en 3 etapes : 

I. DANS L’EDITEUR DE TEXTE MICROSOFT WORD : 

1- On insere le nombre de pages necessaire a notre fichier d’aide (a savoir le nombre de fiches du logiciel qu’on 
veut expliquer). 

L’insertion d’une nouvelle page se fait comme suite : 

Choisir dans le menu Word : insertion ■=> saut ■=> ©saut de page ■=> |Ok . 

2- On ecrit en suite dans chaque page I'explication du fonctionnement d’une fiche du logiciel. 

3- En haut de chaque page il faut ecrire un mot cle qui va etre indexe ensuite par le fichier d’aide, I’indexation se 
fait par I’insertion dU symbole # pour indexer une page duplication ( appelee Map ) attribute a une fiche ou un 
message de dialogue. 

Done on suit les etapes suivantes : 

■ On pose le curseur devant le mot cle d’une page choisie : 

Exemple : pour la page d’explication de la fiche Client on ecrit dans la premier ligne de la page le titre : Client 
ensuite on met le surseul du claveir avant ce mot. 

■ Dans le menu on choisit : insertion ■=> note de bas de page. 

■ Une boite de dialo gue s’affiche ou on ecrit dans sa zone de texte « personnalise » le symbole # et on ferme 
cette boite par |lnserer| . 

■ Le curseur se pointe automatiquement en bas de page precede par le symbole choisi (#), on ecrit le mot 
identificateur de cette page d’aide (generalement ga sera le mot cle de la page, done pour notre exemple on 
ecrit Client). 

■ On repete ce procede pour toute les pages du fichier d’aide. 

4- On fini I’operation en enregistrant ce fichier Word avec format RTF (rich text format) (format text riche). 

II. DANS LE COMPILATEUR HCW : 

1- Dans cette etape on doit lancer le compilateur HCW.EXE propose par I’environnement Delphi pour formater et 
compiler notre fichier Help (chemin de ce fichier : c:\program files\borland\delphi7\help\tools). 

2- On choisit dans son menu : file ■=> new et on choisit le type du fichier Help (pour nous on choisit : Help Project) 
Et on donne un nom a ce projet (I’extension sera par defaut HLP). 

3- Une fenetre d’edition d u Hel p s’affiche et on manipule les Boutons a droite comme suite : 

■ Clique sur le bouton FILE ou on se pointe vers le fichier RTF contenant le texte d’aide cree en Word et cela 
en cliquant sur le bouton ADD| (possibility d’addition de plusieurs fichiers d’aide RFT). 

■ Clique sur le bouton |MAP| ou on va indexe r les p ages d’explication des fiches et messages de dialogue, et 
cela en cliquant pour chaque Map sur le bouton |ADD| et on insere dans la zone « Topic ID » le mot cle du Map 
(I’un des mot cles d’indexation ecrit dans les bas de pages en Word qu’on les a precede par les symboles #. 

Pour notre page d’exemple on ecrira : Client) ; et dans la zone « Mapped numeric value » on insere un numero 
de cette page d’aide (un nombre entier >=1 ). 

■ En fin on compile notre fichier en cliquant sur le bouton : |SAVE AND COMPILE! et notre fichier Help final 
sera genere (il faut que le compilateur indique 0 notes (pas d’erreurs de compilation)). 

III. DANS NOTRE LOGICIEL DELPHI : 

1- On fait la liaison entre notre logiciel et notre fichier Help en inserant la commande suivante dans I’evenement 
« oncreate » du menu principal : 

application.helpfile :=’c:\mes documents\Tp.hlp’ ; 

{En supposant que le fichier Help ete enregistre sous le nom Tp.hlp dans le dossier mes documents}. 

2- Pour Her un bouton d’aide a une page d’aide (Map) on ecrit dans son evenement « Onclick » : 

application. helpcommand(help_context, 5) ; 

115 est le numero de la page d’aide (Map) liee a ce bouton d’aide 

Cette instruction peut etre utilisee aussi dans le menu : ? ■=> Aide. 

3- pour Her une fiche a sa page help correspendante : 

■ On clique sur cette fiche en evitant tous ses composants. 

■ On ecrit dans sa propriety : « helpcontext » le numero de sa page d’aide (exemple 10), cette page (10) 
s’affichera lors de I’execution du logiciel si on tape dans cette fiche sur la touche FI . 

■ Aussi on modifi la propriety KeyPreview ■=> true. 

4- Pour Her un message dialogue a une page d’aide (Map) on ecrit ce message comme suite : 

Messagedlg(‘je vous propose un Help’, MTinformation, [MBKO], 25) ; 

{25 est le numero de page d’aide (Map) liee a ce message de dialogue} 
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4- SKIN DATA 

C'est un utilitaire qui aide a modifier I'interface d’un logiciel (ameliorer la partie visuelle du logiciel) 

on doit avant telecharher ce composant d’un site web quelconques (plusieurs sites de developpement 
proposent ce composant avec une grande varietes d’interfaces possible). 

Apres on doit installer ce composant pour que Delphi pourra I’utiliser (apres (’installation de ce composant, ^ 
apparait a la fin de la palette : suiskim des composants comme un objet a inserer dans une fiche du votre 
application). 

II vaut mieu inserer le composant skindata dans la premiere fiche lancee du logiciel qui sera generalement la 
fiche de mot de passe, cela assure la modification de I’interface de tous les autres fiches suivantes. 

Apres I'insertion de ce composant on choisi le modele d’interface voulu dans sa propriety 


w 


SkinFile 



Clic Ici 


(on trouve tous les modeles proposes par skindata dans le dossier skins du chamin d’installation de skindata) 


On suite on choisi dans la propriety 


I 


Active 




On lance I’execution et tous le logiciel changera d’interface. 






La forme de la fiche 
apres avoir utiliser le 
composant SKINDATA 
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Une fiche avec le 
modele DEEP 


jq^Demo For Sunisoft Skin Solutions v2 

File Online 

Help 

Si 1$ 

SUISkin help FI 



About 



Normal controls 1 Normal controls 2 Nor 

mal controls 3 Dialogs & other forms 


IrisSkin for .NETjWinforms) 

0 Easiest to use 

0 Make your existing project in skin easily 

S U I Skin for VCL(D elphi/' C++Builder) 

0 Easiest to use 

0 Make your existing project in skin easily 

SUIPack for VCL[D elphi/C++B uilder) 

0 What you see is what you get 
0 60+ components 

0 More professional skin implementation 


Load skin... 


Remove skin 


® 


Switch to other 'built-in' skins 


Switch to main built-in skin 


o 


All 


O 


7 Help 


Une fiche avec le 
modele STEEL 



Load skin... ! Remove skin "■ 
Switch to other 'built-in' skins 

o 

Switch to main built-in skin 

^ All O 

9 Help 



IrisSkin for .NETfWinforms) 

0 Easiest to use 

j | Make your existing project in skin easily 

SUISkin for VCL(Delphi/C++Builder) 

0 Easiest to use 

| | Make your existing project in skin easily 

SUIPack for VCL(Delphi/C++B uilder) 
j | What you see is what you get 
| | 60+ components 

j | More professional skin implementation 


Une fiche avec le 
modele RealOne 


A\ 


File 

Online 

Ifl 




Demo For SunisoFt Skin Solutions v2 


- □ X 


SUISkin help 


About 


Normal controls 1 Normal controls 2 Normal controls 3 Dialogs & other forms 


Une fiche avec le 
modele MSN 



@ IrisSkin for .NETlWinforms) 

0 Easiest to use 

0 Make your existing project in skin easily 

O SUISkin for VCL(Delphi/C++B uilder) 

0 Easiest to use 

0 Make your existing project in skin easily 

o SUIPack for VCL(Delphi/C++B uilder) 

0 What you see is what you get 
0 60+ components 

0 More professional skin implementation 


J 
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LES COMPOSANTS DELPHI LES PLUS UTILISES 


Annexe 


COMPOSANT 

PROPRIETE 

EVENEMENTS 

STANDARD 

MAINMENU 

Creation d’un menu 
principal 


Items : (ou bien double clique sur le MainMenu) pour afficher 
l’editeur du menu principal. 

Images : pour lier un composant image (avec sa gamme des 
icones) au MainMenu. 

Pour chaque element du menu : 

Caption : pour donner un nom a V element. 

Imageindex : pour lier une image a cet element. 

Shortcut : affecter un raccourci clavier a cet element. 

Onclick : pour chaque element 
du menu principal on 

introduit dans cet evenement 
le code source adequat. 

POPUPMENU 

Creation d‘un menu 
turbo 

%\ 

Items : (ou double clique sur le PopupMenu) pour afficher 
l’editeur du menu turbo. 

Images : pour lier un composant image (avec sa gamme des 
icones) aux PopupMenu. 

Pour chaque element du menu : 

Caption : pour donner un nom a V element. 

Imageindex : pour lier une image a cet element. 

Shortcut : affecter un raccourci clavier a cet element. 

Onclick : pour chaque element 
du menu turbo on introduit 
dans cet evenement le code 
source adequat. 

LABEL 

S 

Eclaircir T interface 

A 

Caption : pour donner un nom d’ interface au composant. 
Font : pour manipuler le format du texte. 

Onclick 

Onmousemove. 

EDIT | 

Zone de saisie 

abl 

Font : pour manipuler le format du texte. 

Text : represente le texte saisie (propriete a manipuler) 

Onchange 

Onkevdown. 

BUTTON 

Bouton d’ action 

encapsulant un code 
source 

OK | 

Caption : pour donner un nom d’ interface au bouton 
Font : pour manipuler le format du texte. 

Hint : pour introduire le texte d’aide. 

Showhint : pour afficher le texte d’aide. 

Popupmenu : assure la liaison avec un PopupMenu. 

Onclick 

Onkevdown 

Onmousemove 

CHECKBOX 

Case a cocher (choix 
libre) 

Pf 

Caption : pour donner un texte d’ interface au bouton 
Checked : controle l’etat (cocher ou decocher) 

Onclick 

Onmousemove. 

RADIOBUTTON 

Case a option (choix 
exclusif) 


Caption : pour introduire le texte d’ interface. 

Checked : pour voir si le composant est coche ou non 

Onclick 

Onmousemove. 

COMBOBOX 

Liste deroulante de choix 

P 

Items : pour introduire les elements de la liste ligne par ligne. 
Text : contient la valeur choisie parmi celles de la liste 

Onchange 

Onclick 

Onkevdown. 

SUPPLEMENT 

BITBTN 

Bouton autoprogramme 

VQK | 

Kind : choisir le comportement du bouton, 
(bkclose pour fermer une fiche) 

Onclick 

Onkevdown 

Onmousemove 

SPEEDBUTTON 

Bouton d’ action favorise 

m 

Gliph : affecter une image (icone) a ce bouton. 
Hint : introduire un texte d’aide au bouton. 
Showhint : afficher le texte d’aide 

Onclick 

Onmousemove 

IMAGE 

Image d’ariere plan ou 
de logo 

u 

Stretch : la taille de 1’ image sera egale la taille du cadre 
Autosize : agrandir T image a la taille de son cadre. 

Align : T image occupera tous l’espace de la fenetre (alclient) 
Picture : choisir une image dans le disque dur. 
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Annexe 


WIN32 

PAGECONTROL 

Propose des pages a 
onglets 


Clique par le bouton droite de la sourie sur le composant et 
choisir dans le menu turbo « nouvelle page ».on clique sur le 
cadre interieur de chaque page « tabsheet » et on introduit 
dans sa propriete « caption » le nom de la page. 

Onchange 

Onmousemove 

IMAGELIST 

Liste d’icones a 

introduire dans un menu 
ou une barre d’outils. 

a 

Double clique sur le composant et dans la boite de dialogue 
qui s’affiche on clique sur le bouton «aj outer » pour inserer 
une nouvelle image a la gamme deja choisie. a la fin il faut 
supprimer le double flou de chaque image par le bouton 
« supprimer ». 

Onchange 

ANIMATE 

Propose des effets 

d’ animation 

# 

CommonAVI : cette propriete propose une liste des effets 
d’ animation. 

Active : cette propriete provoque le lancement 1’ animation 
(active :=true) 

Onstart 

Onstop 

DATETIMEPICKER 

Pointeur vers une date 

■ 

■ 

Ce composant controle la date sous forme d’un calendrier, la 
date choisie sera dans sa propriete « date ». 

Onchange 

Onclick 

Onkevdown. 

TOOLBAR 

Creation d’une barre 
d’outils 

Dll 1 ’ 

Ce composant se place automatiquement dans la partie haute 
(entete) de la fiche, mais on peut manipuler sa position par la 
propriete « Align ». Pour aj outer un nouveau bouton on clique 
par le bouton droite de la sourie sur ce composant et on choisit 
sur le menu turbo 1’ element « nouveau bouton », a la fin on 
fait la liaison entre une gamme d’ images preparee dans le 
composant «imagelist» et la barre d’outils par sa propriete 
«images» 

Onclick 

OnMouseMove. 

SYSTEME 

TIMER 

Boucle chronologique 

0 

Ce composant assure la repetition d’une action dans un 
intervalle de temps fixe par la propriete « interval ». Par le 
double clic sur ce composant on pourra creer une procedure 
« Ontimer » qui contiendra les instructions a repeter 
consecutivement. 

OnTimer 

MEDIAPLAYER 

Animation multimedia 

• 

Filename : cette propriete assure la liaison entre ce composant 
et un fichier video, audio. . .. Qu’on va utiliser. 

Devisetvpe : represente le type du fichier multimedia a 
manipuler. L’instruction qui declenche l’effet multimedia est: 
Mediaplayerl .play ; 

Onclick 

ACCEESBD 

DATASOURCE 

Composant intermediate 
d’acces BD 

i'* 

Dataset : represente la source de donnees (table, requete SQL 
. . .) liee avec ce composant. 

OnDataChange 

OnUpDateData 

BDE 

TABLE 

Composant d’acces a une 
table d’une BD 

= — 

Databasename : represente 1’ alias de la table 
Tablename : la table a manipuler. 

Name : le nom de programmation de la table. 
Active :=true pour activer la connexion a la BD. 

Beforeopen, Afteropen 
Beforeedit, Afteredit 
Beforeinsert, Afterinsert. . . 

QUERY 

Requete SQL 

m 

SQ L 

Databasename : 1’ alias de la (les) table(s) qu’on va manipuler 
dans la requete. 

SQL : cette propriete lance une petite fenetre d’ edition du 
script SQL de cette requete. 

Params : pour donner le type de chaque parametre. 

Active :=true pour activer la requete. 

Beforeopen, Afteropen 
Beforeedit, Afteredit 
Beforeinsert, Afterinsert 
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Annexe 


CONTROLBD 


DBGRID 

Affichage de la source de 
donnees (champs et 
enregistrements) 

=|l 

Datasouce : cette propriete sera liee avec le composant 
DATASOURCE representant la source de donnees a afficher. 

OnColExit 

OntTitleClick 

DBNAVIGATEUR 

Represente les 

principaux operations de 
manipulation des BD. 

\< ¥ 

Datasouce : cette propriete sera liee avec le composant 
DATASOURCE representant la source de donnees a 
controler. 

Beforeaction 

onclick 

DBEDIT 

Affiche un champ d’une 
source de donnees. 

m 

Datasource : represente la source de donnees. 

^ Datafield : represente le champ de donnees a afficher. 

Onchange 

Onkevdown. 

DBCOMBOBOX 

Affiche un champ d’une 
source de donnees et 
propose une liste de 
valeurs a introduire. 

* 

Datasource : represente la source de donnees. 

Datafield : represente le champ de donnees a afficher. 

Items : contient la liste des valeurs a proposer a introduire 
dans la BD. 

Onchange 

Onclick 

Onkevdown. 

DBLOOKUPCOMBOBOX 

Afficher un champ d’une 
source de donnees et 
proposer une liste de 
valeurs a introduire a la 
BD d’une autre source 

|fcj 

Datasource : represente la source de donnees. 
Datafield : represente le champ de donnees a afficher. 
Listesource : la source des donnees de la liste. 
Listefield : le(s) champ(s) dans la liste 
Kevfield : le champ qu’on affichera sa valeur. 

Onclick 

Onkevdown. 

DBCHART 

Representation graphique 
d’une source de donnees. 

i 

On double clique sur ce composant et dans la boite de 
dialogue qui s’ affiche on clique sur le bouton aj outer de 
l’onglet serie (inferieur) pour choisir le type de la 
1 representation graphique, et dans l’onglet serie (superieur) On 
choisit dans le sous onglet source de donnees dans la liste 
1’ element « dataset » et on fait la liaison avec notre data 
source et on choisit le champ d’ etiquettes « libelles » et le 
champ de quantifications « sectorielle » 

OnClick 

OnZoom 


QREPORT 


QUICKREP 

Etat d’ impression 

r=-= 

Bands : pour introduire les bandes dans l’etat 
Dataset : represente la source de donnees a imprimer 
Zoom : controle la taille de l’etat a la conception 

Onpreview 

Beforeprint 

QRLABEL 

Interface de l’etat 

m A 

Caption : insertion du texte a imprimer (texte fixe). 
Font : pour manipuler le format du texte a imprimer. 

Onprint 

QRDBTEXT 

Imprimer les donnees 
d’un champ d’une BD 

gp 

^A 

Datasource : represente la source de donnees. 
Datafield : represente le champ de donnees a afficher. 

Onprint 

QRSHAPE 

Formes d’encadrement 

% 

Ce composant aide a encadrer les elements de l’etat 
d’ impression pour mieux les presenter. Sa propriete « shape » 
nous donne le choix du style d’encadrement. 



DIALOGUES 


OPENDIALOG 

Boite dialogue ouvrir 


FONTDIALOG 

Boite dialogue police 


COLORDIALOG 

Boite dialogue couleur 





Ce composant utilise les DLL Windows pour afficher la boite 
de dialogue standard d’ouverture d’un fichier. La propriete 
« filename » donne le nom et 1’ emplacement du fichier ouvre. 
utilise les DLL Windows pour afficher la boite de dialogue 
standard de manipulation de la police d’ecriture. La propriete 

« font » donne les parametres de la police choisie. 

utilise les DLL Windows pour afficher la boite de dialogue 
standard de manipulation de la couleur. La propriete « color » 
donne les parametres de la couleur choisie. 


Qnclose 

Onshow 


Qnclose 

Onshow 


Qnclose 

Onshow 
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